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中 华 学 习 机 以 前 所 未 有 的 速度 进入 寻常 人 家 ， 成 为 人 们 
工作 、 学 习 和 生活 的 得 力 助手 ， 尤 其 是 在 开发 青少年 的 智力 
方面 ， 已 经 显示 出 了 强大 的 威力 。 

为 满足 广大 青少年 、 中 小 学 生 、 家 长 和 计算 机 爱好 者 对 
中 华 学 习 机 知识 的 渴求 ， 我 们 组 撰 了 这 套 《 中 华 学 习 机 实用 
大 全 》。 该 书 内 容 丰 富 、 具 体 、 实 用 :把 中 华 学 习 机 的 最 新 
软件 以 及 最 实用 、 最 急需 的 技术 、 技 巧 和 方法 训 无 保留 地 介 
绍 给 读者 ， 使 初学 者 很 快 入 门 ， 入 门 者 进一步 提高 ， 学 到 知 
识 ， 人 掌握 技术 ， 增 长 才干 ， 司 迪 智 慧 ， 得 到 力量 ， 增 强 解 决 
实际 问题 的 能 力 、 

《 中 华 学 习 机 实用 大 全 》 分 为 七 册 ， 

1.BASIC 与 LOGO 语 言 

2. 汉 字 处 理 与 数据 库 技术 

3. 操 作 系统 

4.FORTRAN 与 PASCAL 语 言 

5. 汇 编 语言 程序 设计 

6. 游戏 与 绘图 

7 了. 硬件 维修 与 经 验 技巧 

为 便于 阅读 和 使 用 ， 每 册 内 容 彼此 均 是 独立 的 ， 读 者 可 
以 从 任何 一 本 书 开始 阅读 。 但 是 ,如 果 读 者 是 计算 机 技术 的 初 
学 者 ， 那 么 最 好 按 顺 序 阅 读 。 当 然 ， 每 本 书 中 可 以 只 选 学 自 
已 感 兴趣 的 那 部 分 内 容 。 


《 中 华 学 习 机 实用 大 全 》 在 内 容 安排 上 ， 由 浅 入 深 ， 循 
序 渐进 。 既 考虑 到 初学 者 很 快 入 门 ， 又 考虑 到 让 入 门 者 进 一 
步 提高 ， 还 考虑 了 应 用 者 能 够 实用 。 书 中 有 较 多 实例 ， 读 者 
可 以 边 读 、 边 学 、 边 用 、 边 想 、 边 写 ( 写 自 己 的 程序 )、 在 结 
构 安 排 上 ， 既 便于 自学 ， 又 可 以 作为 教材 。 在 文字 叙述 上 ， 
力求 浅显 、 通 俗 、 易 懂 。 在 选材 上 ， 突 出 实用 性 技术 。 

本 书 是 《 中 华 学 习 机 实用 大 全 》 的 第 四 册 ， 主 要 介绍 了 
FORTRAN 和 PASCAL 语 言 的 基本 概念 ， 编 写 程序 的 方法 
以 及 如 何 上 机 操作 。 虽然 在 IBM PC 机 上 FEORTRAN 和 
PASCAL 己 是 累 见 不 鲜 ， 但 在 中 华 学 习 机 上 使 用 这 两 种 语 
言 ， 本 书 的 介绍 却 是 第 一 次 。 读 者 不 妨 参照 书本 上 机 试 一 
试 。 

欢迎 读者 对 本 书 进行 品评 ， 指 出 牙 漏 和 错误 ， 我 们 将 其 
为 感谢 ! 

在 编写 本 书 的 过 程 中 ， 电 子 工业 出 版 社 和 电子 报社 的 编 
辑 们 给 予 了 指导 和 帮助 ， 特 别 是 王 有 春 、 孙 萌 老 师 提出 了 许 
多 宝贵 的 修改 意见 ， 为 调试 和 运行 示例 程序 ， 成 都 三 开元 电 
脑 部 经 理 舒 新 生 无 偿 地 提供 了 CEC-I 中 华 学 习 机 及 其 软件 ， 
张 隆 楷 副 教授 和 何 晓 林 审 阅 了 全 部 书稿 。 在 此 一 并 表示 感 
谢 ! 

参加 本 书 编写 的 有 : 韩 仲 清 ， 黄 金 姑 ， 揭 金 良 * 座 兴 
祥 ， 刘 元 社 。 全 书 由 韩 仲 清 统 稿 。 
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Vii 


第 一 部 分 
FORTRAN 语 言 程 序 设计 


本 部 分 介绍 了 中 华 学 习 机 CEC-I FORTRAN77 语 言 的 
基本 概念 和 程序 设计 方法 。 主 要 包括 ，FORTRAN 的 基本 
知识 ， 简 单程 序 ， FORTRAN 程 序 的 运行 ， 控 制 语句 及 分 
支 程 序 ， 循 环 程序 ， 数 组 ， 函 数 与 子 程序 ,文件 及 输入 输出 
系统 ,为 写 起 来 简洁 ， 这 里 将 中 华 学 习 机 CEC-1I 上 的 FOR 
TRAN77 语 言 简称 为 FORTRAN。 


第 一 章 “ FORTRAN 的 基本 知识 


中 华 学 习 机 上 的 FORTRAN 语 言 是 ANSI FORTRAN 
77 的 -- 个 子 集 ， 它 与 APPLE FORTRAN 基本 兼容 。 在 
CEC-I 上 能 够 运行 的 FORTRAN 程序 ， 在 APPLE 微机 上 
也 能 运行 。 由 于 FORTRAN 可 以 产生 履 盖 程序 段 ， 因 而 在 
CEC-L! 机 上 也 能 运行 较 大 的 程序 。 


1.1 程序 结构 


用 FORTRAN 语 言 编制 的 程序 称 为 源 程序 。 源 程序 是 由 
一 些 程序 单位 组 成 的 ， 程 序 单 位 又 由 语句 组 成 ， 每 个 语句 又 
由 规定 的 字母 、 数 字 等 符号 组 成 ， 权 使 用 FORTRAN 语 言 ， 
首先 得 了 解 它 的 基本 组 成 部 分 以 及 程序 的 结构 特征 。 


1.1.1 源 程序 的 结构 


一 个 FORTRAN 源 程序 是 由 一 个 或 多 个 程序 单 位 组 成 
的 ， 这 些 程序 单位 可 以 是 主 程序 、 子 程序 、 函 数 子 程序 等 。 
其 形式 如 下 ， 
第 1 程序 单位 :。《 程序 自体 > 
| END 
《程序 单位 首部 > 
第 2 程序 单位 《程序 段 体 > 
END 


1. 程 序 单位 首部 

程序 单位 首部 标志 着 -- 个 程序 单位 的 开始 ， 它 说 明 程 序 
单位 的 属性 ， 提 供 必需 的 参数 以 及 参数 说 明 等 信息 。 

程序 单位 首部 指 的 是 主 程序 、 子 例 程 子 程序 和 函数 子 程 
序 首 部 语句。 

(1 ) 主 程序 首部 语句 

主 程序 是 以 PROGRAM 语 名 开始 的 。 主 程序 语 句 开 头 
的 程序 单位 即 是 主 程序 单位 ， 主 程序 单位 的 PROGRAM 语 
句 可 以 省 政 ， 这 时 系统 自动 按 主 程序 处 理 。 主 程序 语句 格式 
为 ， 

PROGRAM 程序 名 》 

在 一 个 可 执行 的 FEORTRAN 程 序 中 只 允许 有 -- 个 主 程 
序 。 

(2 ) 子 例 程 子 程序 首部 语句 

在 一 个 FORTRAN 程 序 中 可 以 出 现 一 个 或 多 个 子 例 程 
子 程序 。 子 例 程 子 程序 首部 语句 的 格式 为 ， 

SUBROUTINE 子 程序 名 >》[【(《 形 参 表 》) ] 
其 中 SUBROUTINE 为 子 程序 单位 的 定义 标志 ，《 有 展 参 表 > 
为 子 程序 中 所 要 用 到 的 形式 参数 表 。 如 果 不 带 形式 参数 ， 则 
称 为 无 参 子 程序 。 ( 方 括号 〔【…]】 中 的 内 容 根 据 需 要 而 定 ， 
称 为 待 选择 项 ， 下 同 ) 

(3 ) 函数 子 程序 首部 语句 

函数 子 程序 首部 语句 为 ， 

[( 类 型 )] FUNCTION 函数 名 >( [( 形 参 表 >] ) 

函数 子 程 序 首部 用 于 定义 不 同类 型 的 函数 ， 除 必须 指明 
类 型 外 ， 其 它 与 子 程序 类 同 。 


2. 程 序 段 体 

程序 段 体 是 程序 单位 的 主要 部 分 。 它 是 由 一 个 或 多 个 
FORTRAN 语 名 组 成 的 实体 ， 以 实现 整个 处 理 过 程 。 这 个 
语句 实体 主要 包括 可 执行 语句 和 非 执行 语句 两 大 类 。 

(1 ) 可 执行 语句 

可 执行 语句 指明 动作 并 在 可 执行 程序 中 形成 执行 序列 ， 
如 获得 各 种 计算 值 、 程 序 的 控制 转移 、 数 据 的 传输 、 子 程序 
的 调用 等 。 可 执行 语句 包括 赋值 语句 、 控制 语句 和 I/VO 语 
句 。 

(2 ) 非 执行 语句 

非 执 行 语句 用 于 指明 数据 的 特性 、 排 列 和 初 值 ， 包 括 输 
入 输出 编辑 信息 ， 语 名 函数 。 非 执行 语句 不 是 执行 序列 的 一 
部 分 。 非 执行 语句 可 以 带 标号 ， 但 这 种 语句 你 号 不 用 于 控制 

3. 程 序 单位 结束 语句 

在 FORTRAN 语 言 程序 中 ， 用 刁 ND 语 名 来 结 束 一 个 程 
序 单位 。 

当 END 出 现在 主 程序 中 时 ， 它 结束 整个 可 执行 程序 的 执 
行 。 当 END 出 现在 子 程序 或 函数 子 程序 中 时 ， 其 作用 相当 于 
RETURN ( 返回 ) 语句 。 记 住 ，FORTRAN 程 序 的 每 一 个 
程序 单位 的 最 末 一 行 必 须 而 且 只 能 是 END 语 句 。 

4. 程 序 单 位 中 语句 的 顺序 

程序 单位 中 的 语句 要 依 一 定 次 序 排列 ， 各 种 语 多 出 现 的 
先后 顺序 如 下 ， 
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PROGRAM，FUNCTION 或 SUBROUTINE 语句 
8 IMPLICIT 语句 
其 它 说 明 语句 
杰 | 控 
抽 FORMAT 语句 DATA 语句 
行 语 区 
句 语句 函数 语句 
1 5 
可 执行 语句 
1 END 语句 
空 烙 行 


1.1.2 FORTRAN 字符 集 


FORTRAN 字 符 集 由 26 个 英文 字母 ，10 个 数字 和 13 个 
专用 字符 组 成 。 它 们 是 : 


1. 字 母 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

2 .数字 

0123456789 

3. 专 用 字符 

字 符 字符 名 字 符 字符 名 
一 空白 (空格 ) ) 右 括 泓 
一 等 “号 逗 号 
十 加 号 。 圆 点 
减 号 $ 美元 符号 
@ 星 号 / 单 撤 号 


/ 斜 线 ， 冒 号 
《 左 括 弧 

注意 ， 

(1 ) 空白 符 在 显示 器 和 打印 机 上 输出 时 均 是 一 个 空白 
位 置 。 为 了 明显 起 见 ， 有 时 用 “一 ”表示 一 个 空白 。 在 程序 
中 也 可 以 用 连续 的 空白 符 对 源 程序 分 段 。 

(2 ) 书写 程序 时 ， 大 小 写字 母 均 可 。 但 在 UCSD 操作 
系统 下 均 为 大 写字 


1.1.5 程序 行 的 格式 
FORTRAN 语 言 的 程序 行 ， 实 际 就 是 一 个 语句 行 。 每 
一 个 语句 行 均 由 三 部 分 组 成 。 其 形式 为 ， 


语句 标号 区 续 行 区 语句 区 注解 区 

1. 语 句 标号 区 

第 1 一 5 列 称 为 标号 区 ， 它 由 至 多 5 位 无 符号 数 字 组 成 。 
标号 中 的 空格 符 不 起 作用 ， 例 如 语句 标号 “1 二 43” 实 际 是 
“143” 。 语 句 标号 可 很 据 需 要 而 设置 ， 如 果 不 需要 语 句 标 
号 ， 标 号 区 也 必须 空 出 来 ， 不 允许 有 任何 符号 或 全 零 。 在 同 
一 个 程序 单位 中 不 允许 出 现 完 全 相同 的 语句 标号 。 

语句 标号 必须 出 现在 语句 的 起 始 行 上 。 

如 果 语 句 标号 的 第 一 列 为 “C” 或 “#x” 字 符 , 则 表示 该 
语句 行为 注解 行 . 注解 行为 非 执行 语句 行 ， 它 可 以 在 程序 单 
位 中 的 任意 一 行 出 现 。FORTRAN 编 译 程序 对 注 解 行 不 予 
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处 理 ， 对 程序 的 执行 毫 无 影响 ， 只 对 程序 起 解 帮 说 明 的 作 
用 。 

注解 行 的 书写 可 不 分 区 而 连续 书写 ， 直 到 本 行 结束 。 如 
果 一 个 语句 行 写 不 完 ， 可 在 下 一 行 继续 书写 ， 但 第 一 列 必须 
是 “*"” 或 “C”。 

2. 续 行 区 

第 6 列 称 为 续 行 区 。 当 一 个 语句 在 一 行内 写 不 完 时 ， 可 
在 下 -- 行 的 语句 区 接着 书写 ， 但 必须 用 非 零 或 非 空格 的 任 一 
个 FORTRAN 字 符 在 续 行 区 上 作 标 记 。 这 些 行 中 的 第 一 行 
称 为 起 始 行 ， 其 余 为 继续 行 。 起 始 行 的 第 6 列 必 须 是 空格 或 
零 ， 只 有 起 始 行 才 有 标号 ， 续 行 的 标号 区 必须 全 为 空 向 ， 不 
人 允许 带 有 语句 的 标号 。 续 行 最 多 不 超过 9 行 。 

3. 语 名 区 

第 7~72 列 称 为 语句 区 。 所 有 语句 都 必须 写 在 语句 区 .。 当 
一 行 写 不 完 时 ， 可 用 续 行 标志 ， 在 下 一 行 的 滞 句 区 中 继续 书 
写 。 

综 上 所 述 ， 一 个 语句 最 多 占用 10 行 ( 即 第 一 行为 该 语句 
的 起 始 行 ， 其 余 9 行 为 续 行 ) ， 从 第 7 列 到 第 72 列 的 字符 总 数 
为 660 个 。 


1.2 数据 类 型 和 常数 


FORTRAN 语 言 中 的 数据 有 四 种 基本 类 型 : 整 型 
(INTEGER ) 、 实 型 (REAL ) 、 逻 辑 型 (LOGICAL ) 
和 字符 型 (CHARACTER ) 。 

1. 台 型 常数 

整 型 常数 是 没有 小 数 点 的 整数 ， 它 内 0 全 9 的 数字 组 成 ， 
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当然 ， 可 以 有 正 、 负 号 。 整 型 常数 的 值 在 计算 机 内 存 中 的 表 
示 是 精确 的 ， 通 常 占用 2 个 字 节 的 存储 单元 。 

整 型 常数 可 以 是 一 32768 玉 32767 之 间 的 任 一 值 。 如 ， 

1567，2568， 一 576， 十 3780，0，005607 等 ,而 2.7867， 
10” 都 不 是 整 型 常数 。 注 意 :， 整 型 常数 之 前 的 零 可 以 被 忽 
略 ， 正 整 常数 之 前 的 正 号 “十 ”可 以 省 写 。 

2. 实 型 常数 

实 型 常数 分 为 两 种 形式 ， 

(1 ) 基本 实 型 常数 ， 它 由 整数 部 分 、 小 数 点 和 小 数 部 
分 组 成 。 可 以 只 有 整数 或 小 数 部 分 ， 但 不 能 两 者 同时 都 没 
有 。 如 ，: 

3.14159， 一 327.54， 十 5.327，100.，.532 都 是 正确 的 
基本 实 型 常数 。 

(2 ) 基本 实 型 常数 后 跟 指 数 部 分 ( 以 字母 下 标识 )， 
如 ，15.261E5， 一 3:4 匡 一 3，15 等 。 

实 型 常数 在 内 存 中 占用 4 个 字 节 ， 其 精度 为 6 位 十 进 制 数 
字 。 实 型 数 的 表示 范围 是 ， 

一 1.70141 卫 十 38 一 一 5.87747 卫 一 39 (负数 范围 ) 

5.87747 卫 一 39~1.70141 卫 十 38  (〈 正 数 范 围 ) 

3. 罗 辑 型 常数 

轴 辑 型 常数 只 有 “ 真 ” 和 “ 假 ” 两 个 值 ， 占 用 2 个 字 节 
的 存储 容量 。 用 . TRUE ,表示 “ 真 ” 值 ， 用 . FALSE 
表示 “ 假 ” 值 。 

在 计算 机 内 存 中 ，. FALSE .用 0 表示 ， ,TRUE . 
用 1 表示 。 

4. 字 符 型 常数 

字符 型 常数 由 盖 串 ASCII 码 字符 组 成 ， 串 中 字符 的 个 数 
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称 为 字符 长 度 。 串 中 的 每 一 个 字符 占用 1 个 字 节 的 存储 空 
间 。 

字符 型 常数 的 表示 形式 是 由 两 个 单 撤 号 将 字符 串 括 起 
来 ， 撒 号 不 算 作 字符 常数 的 一 部 分 。 若 字符 串 内 出 现 撤 号， 
则 可 用 两 个 相 邻 的 撤 号 来 表示 ， 但 只 计 作 一 个 撒 号 。 如 : 

“CEC 一 FORTRAN77  ， 其 值 为 ，CEC 一 FORTRAN 
77 

“〈AB 一 一 CD'， 其 值 为 ，AB 一 一 CD 


1.3 FORTRAN 和 名 


FORTRAN 名 表示 用 户 或 系统 定义 的 变量 、 数组 、 函 
数 或 程序 单位 名 ， 在 后 面 的 章节 里 将 逐一 给 予 介绍 。 

1. 变 量 

变量 是 指 在 程序 执行 过 程 中 其 值 可 以 变化 的 量 ， 例 如 ， 

X=3.0 〈 这 是 赋值 语句 ， 下 同 ) 

X=5.0， 这 里 的 又 就 是 变量 。 

在 执行 第 一 个 语句 时 ，XX 的 值 为 3.0， 执 行 第 二 个 语句 后 
广 的 值 变 成 了 5.0。 变 量 需 要 在 程序 中 通过 某 些 途 径 予以 赋 
值 . 

2. 变 量 名 

每 一 个 变量 都 需要 有 一 个 名 字 。 但 在 同一 程序 单位 内 不 
同 的 变量 不 能 同名 。 

在 FORTRAN 程 序 中 ， 空 格 符 被 忽略 不 计 。 因 此 ， 变 
量 名 中 有 空格 是 允许 的 ( 这 不 同 于 dBASEE 的 文 件 名 和 字段 
名 ) 。 

FORTRAN 语 言 规定 ， 变 量 名 必须 以 字母 开头 ， 其 后 
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最 多 眼 5 个 字母 或 数字 空格 符 不 计算 在 内 ) ， 
下 面 的 变量 名 是 正确 的 ， 
ABC，XY1，Y1，Y，ABCDE，Ar-B5D 
下 面 的 变量 名 是 错误 的 ， 
A.FOR ( 小数点 不 能 出 现在 变量 名 中 ) 
2AX (不 是 字母 开头 ) 
YX 一 12 《 减 号 不 允许 ) 
(1 ) FORTRAN 变 量 名 可 选用 任何 允许 的 字符 序列 。 
但 是 为 了 避免 与 数学 库 内 某 些 名 字 发 生 冲 突 ， 造 成 连 搂 错 
误 。 最 好 不 用 系统 关键 字 ( 如 ，IF、THEN、ELSE 等 )、 
数学 库 内 的 名 字 或 内 部 函数 名 作 变 量 名 。 
(2 ) 变量 名 应 尽量 采用 与 数学 上 或 实际 问题 中 相同 或 
相近 的 名 字 ， 直 观 易 懂 。 
(3 ) 本 语言 标准 规定 ,变量 名 不 超过 6 个 字符 ， 超 过 则 
作出 错 处 理 ， 
3.FORTRAN 名 的 作用 域 
一 个 FORTRAN 名 的 作用 域 是 指 这 个 名 字 在 哪 个 区 域 
内 被 引用 才 是 有 效 的 。 通 常 ， 一 个 FORTRAN 名 的 作 用 域 
是 一 个 可 执行 的 程序 、 一 个 程序 单位 或 一 个 函数 语句 。 主 程 
序 名 、 函 数 子 程序 名 、 子 程序 名 、 公 用 块 名 的 作用 域 是 整个 
可 执行 的 程序 。 这 样 的 FORTRAN 名 称 为 全 局 名 ， 其 作用 
域 称 为 全 局 作用 域 ， 变 量 名 、 数 组 、 常 数 、 语 名 函数 、 形 式 
参数 等 名 的 作用 域 是 一 个 程序 单位 ， 这 种 FORTRAN 名 称 
为 局 部 名 。 函 数 语 句 中 出 现 的 参数 名 的 作用 域 是 该 语句 函 
数 ， 在 该 语句 函数 内 不 作 他 用 ， 在 语句 函数 以 外 可 作 别 的 用 
途 。 
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4. 变 量 的 类 型 及 说 明 

变量 也 和 常量 一 样 具有 四 种 数据 类 型 ， 整 型 、 实 型 、 逻 
辑 型 以 及 字符 型 。 下 面 先 介绍 浆 型 (INTEGER ) 和 实 型 
(REAL ) 以 及 隐 仿 说明。 

(1 ) 隐 式 说 明 

如 果 变 量 名 的 第 1 个 字母 是 [、J、 开 、L、M 或 N 之 一， 
那么 这 种 变量 名 看 成 是 整 型 变量 名 ， 所 有 其 它 字 母 打头 的 变 
量 名 均 为 实 型 变量 名 。 我 们 称 这 种 规则 为 “I-N” 规则 。 
如 ， 

MAX，MIN，IABC，JALEFA 隐 仿 说明 为 整 型 变量 

AMAX，BMIN，C1，C2，XYZ 隐 含 说 明 为 实 型 变量 

〈2 ) 显 式 说明 

如 果 程 序 中 用 INTEGER 或 REAEL 明 确 地 指定 了 变量 所 
具有 的 类 型 ， 那 么 这 种 情况 称 为 显 式 说 明 。 

语句 格式 为 : 

INTEGER 变量 名 》[,， 《变量 名 。 > ] … 

有 REAL 变量 名 。》 局 《变量 名 ,>]…: 

其 中 INTEGER、REAL 分 别 是 整 型 、 实 型 类 型 .说 明 
符 。 这 就 指明 变量 名 1、 变 量 名 2 为 整 型 变量 ， 变 量 名 3 、 变 
量 名 4 为 实 型 变量 ， 如 ， 

INTEGER A，B，C 

民 本 从 和 沁 

鉴 型 变量 在 内 存 中 分 配 相 邻 的 2 个 字 节 的 存储 单元 。 实 
型 变量 在 内 存 分 配 相 邻 的 4 个 字 节 的 存储 单元 。 

一 个 说 明 语 句 可 以 给 若干 个 变量 指定 同样 的 数据 类 型 ， 
但 各 变量 名 之 间 必 须 用 逗号 隔 开 。 在 同一 个 程序 单位 中 ， 变 
量 名 只 能 在 类 型 说 明 语 句 中 出 现 一 次 。 同 一 类 型 的 说 明 滞 名 
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可 以 出 现 多 个 ， 顺 序 不 限 。 

除 用 INTEGER 和 REAL 语 句 分 别 定义 整 型 和 实 型 变量 
外 ， 还 可 用 CHARACTER 语 句 定义 字符 类 型 的 变量 。 其 一 
般 格 式 是 ， 

CHARACTER [#n[，]]( 变 量 名 1)[*n][,( 变 量 名 2》 
[*n]]… 其 中 ，CHARACTER 是 字符 类 型 定义 符 ， 变 量 名 
1、 变 量 名 2 均 可 以 是 一 个 变量 名 、 数 组 名 或 数组 说 明 符 ;an 
是 字符 变量 或 字符 数组 元 素 的 字符 个 数 ( 或 长 度 ) ， 它 必须 
是 一 个 1 到 255 之 间 的 无 符号 整数 。 若 省 略 *n， 则 字符 元 素 的 
长 度 为 1。 

下 面 的 字符 说 明 语 句 是 正确 的 ， 

CHARACTER #*50，B(B 是 长 度 为 50 的 字符 变量 ) 

CHARACTER Cx50，CHR (C 的 长 度 为 50,CHR 的 
长 度 为 1 ) 

如 果 在 CHARACTER 语 句 中 出 现 数组 名 或 数组 定义 
符 ， 则 *n 指 明 每 一 个 数组 元 素 的 长 度 。 

注意 ， 若 长 度 附 于 CHARACTER 后 面 ， 则 说 明 其 后 出 
现 的 字符 变量 的 长 度 均 为 n。 若 在 变量 名 后 附 上 的 长 度 说 明 
为 Xn，， 则 该 变量 的 长 度 以 此 为 准 。 例 如 ， 

CHARACTERx20 A，Bx20 相 当 于 ， 

CHARACTERx20 A，B 或 

CHARACTER A#x 人 20，Bx 关 20 

(3 ) 隐 含 说 明 语 名 

隐 含 说 明 语 句 用 于 但 定 用 户 的 变量 的 隐 含 规则 。 格 式 
为 : 

IMPLICIT TYPE (a[，a]…) 

其 中 ，IMPLICIT 为 隐 含 说 明 语 句 的 定义 符 。TYPE 为 变量 
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的 数据 类 型 ， 它 可 以 是 INTEGER、REAL、LOGICAL 以 
及 CHARACTER 四 种 。a 代 表 同 类 变量 名 的 第 一 个 字母 ， 
即 指定 了 以 某 个 字母 开头 的 那 类 变量 的 数据 类 型 。 如 ， 

IMPLICIT INTEGER(A，B)，REAL(M，N) 

这 说 明 以 A 或 B 打 头 的 变量 名 均 为 整 型 。 以 M、N 打 头 的 
变量 名 均 为 实 型 。 

用 这 种 方式 说 明 以 后 ， 可 以 不 再 用 显 式 方 式 语 句 再 进行 
说 明 。 即 使 说 明了 ， 也 只 是 对 其 中 某 一 个 变量 而 言 ， 而 不 影 
响 这 一 群 变 量 的 类 型 ， 这 就 是 IMPLICIT 语 名 和 其 他 类 型 说 
明 语 句 的 区 别 。 

IMPLICIT 除 了 用 单个 字母 来 指定 一 群 变量 的 数据 类 型 
以 外 ， 还 可 以 用 字母 范围 来 指定 变量 的 类 型 。 例 如 ， 

IMPLICIT INTEGER (P--T) ，REAL(J-O ) 

这 表示 以 P、Q、R、S、T 中 任 一 个 字母 开 头 的 变量 名 
均 为 整 型 ， 而 以 J、K、L、M、N、O 开 头 的 变量 名 均 为 实 
型 。 

IMPLICIT 语 句 中 没有 定义 的 变量 ， 仍 遵循 IN 规则 。 
若 有 其 它 显 式 说 明 ， 则 以 显示 说 明 为 准 。 

在 一 个 程序 单位 中 ，IMPLICIT 语 句 必须 位 于 所 有 其 它 
说 明 语 名 之 前 。 在 IMPLICIT 语 句 中 的 字母 也 只 能 出 现 一 
次 。 


1.4 算术 表达 式 


1. 算 术 运 算 符 
FORTRAN 的 算术 运算 符 有 ， 
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运算 符 二 元 运 兽 符 .一 元 运算 符 
本 乘 方 ( 腿 ) 
/ 除法 
由 乘法 | 
过 加 法 ， 正 
减法 负 


注意 ,FORTRAN 滞 言 中 用 星 号 “x” 表 示 数 学 中 的 乘 
号 "X"， 用 "“# 洲 "来 表示 乘 方 。 所 谓 二 元 运算 是 指 一 个 运算 
符 具 有 两 个 运算 对 象 ， 一 元 运算 是 指 一 个 运算 符 只 有 一 个 运 
算 对 象 。 

2. 什 么 是 算术 表达 式 

算术 表达 式 是 用 算术 运算 符 将 数值 常数 、 数 值 变量 和 数 
值 函数 按 一 定 规则 连接 起 来 的 产生 数值 的 式 子 。 当 然 ， 可 以 
成 对 地 使 用 圆 括号 ， 如 ， 


数学 公式 算术 表达 式 

TT2 3.1415926 闪 及 炒米 2 

_a 一 b = 7 

二 (A 一 B)7 (A++BD) 

A/bz 一 4ac SQRT (BxB 一 4. 洲 AxXxB) 


Sin?x 一 Cos?X SIN(X)# 米 2 一 COS(X 米 米 2 ) 
算术 表达 式 的 书写 是 否 正 确 ， 是 算术 表达 式 计算 结果 正 
确 与 否 的 关键 。 因 此 要 注意 ， 沫 号 不 能 省 略 或 省 写 ， 适 当地 
成 对 使 用 圆 括号 。 
3. 算 术 运 算 符 的 优先 级 
FORTRAN 语 言 中 算术 运算 符 的 优先 级 按 出 高 到 低 是 ， 
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六 洲 , 关 或 /十 或 一 。 同 级 运算 从 左 到 右 , 若 有 括号 则 优先 。、 

在 计算 算术 表达 式 时 ， 系 统 按照 运算 符 的 优先 级 别 进行 
处 理 。 

如 果 算 术 表达 式 中 有 括号 以 及 函数 引用 ， 则 求 值 步 又 如 ， 
下 ， 

(1 ) 如 果 表 达 式 中 有 括号 ， 则 首先 计算 。 如 果 有 多 层 
括号 娩 套 ， 则 从 最 内 层 开始 计算 ， 然 后 逐步 向 外 扩展 ， 直 至 .. 
最 外 一 层 括 号 。 

(2 ) 如 果 有 函数 引用 ， 则 首先 进行 函数 计算 。 

4. 算 术 表 达 式 的 类 型 

算术 表达 式 象 变量 、 常 量 一 样 具 有 数据 类 型 ， 从 根本 上 
说 算术 表达 式 的 数据 类 型 是 由 算术 表达 式 的 运算 对 象 的 类 型 
所 决定 的 。 当 算术 表达 式 中 的 运算 对 象 的 类 型 不 一 致 时 ， 则 
系统 将 它们 转换 成 同一 类 型 后 进行 运算 ， 该 类 型 即 为 算术 表 
达 式 的 数据 类 型 。 

数据 类 型 的 转换 规则 是 ， 

(1 ) 整 型 算术 表达 式 

整 型 算术 表达 式 由 整 型 运算 对 象 组 成 ， 计 算 的 结果 为 整 
型 值 。 

注意 ,在 作 疼 数 除法 运算 时 ， 运 算 的 结果 只 取 商 的 整数 
部 分 ， 小 数 部 分 被 丢掉 。 

(2 ) 实 型 表达 式 

实 型 算术 表达 式 由 实 型 运算 对 象 组 成 ， 计 算 的 结果 为 实 
型 值 。 

〈3 ) 混合 型 算术 表达 式 

混合 型 算术 表达 式 是 由 整 型 . 实 型 运算 对 象 组 成 的 ,计算 
的 结果 是 实 型 。 实 际 上 ， 在 进行 运算 时 将 运算 符 左右 两 端的 
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运算 对 象 的 数据 类 型 由 整 型 转换 成 实 型 后 再 计算 

需要 指出 的 是 ， 数 据 类 型 的 转换 不 是 一 次 进行 的 ， 而 是 
逐步 进行 的 。 即 一 边 转 换 一 边 计算 。 

若 整 、 实 型 常数 超过 规定 的 上 下 限 ， 则 称 为 “溢出 ”， 
超过 上 限 叫 做 “上 溢出 ”。 超 过 下 限 叫 “下 溢出 ”。 若 出 现 
上 溢出 ， 则 计算 机 立即 停止 程序 的 运行 ， 等 待 用 户 进行 处 
理 。 对 于 下 溢出 则 视 计 算 机 系统 而 定 ， 有 的 当 作 错误 处 理 ， 
而 大 多 数 的 计算 机 系统 将 这 种 情况 的 数据 当 作 零 处 理 。 

另外 ， 在 计算 机 数据 处 理 中 实数 的 值 是 一 个 近似 值 ， 其 
精 位 度 的 高 低 取 决 于 实数 的 有 效 数 字 位 数 ， 标 准 实数 的 有 效 
数字 为 6 位 。 


1.5 内 部 函数 简介 


在 数值 计算 过 程 中 ， 经 常 要 用 到 一 些 计 算 公 式 或 计算 过 
程 ， 如 果 每 个 用 户 都 去 编写 这 些 程 序 ， 则 给 用 户 带 来 麻烦 。 
为 了 提高 编程 序 的 效率 ，FORTRAN 系 统 提供 了 一 系列 定 
义 好 的 函数 ， 它 们 具有 专门 的 意义 ， 用 户 在 编写 程序 时 ， 可 
在 表达 式 中 直接 引用 这 些 函 数 ( 表 1-1 ) 。 


表 1-1 常用 内 部 函数 


函数 功 能 Re 
SINCX) 求 自 变量 的 正弦 值 实 | 实 
COS(X) 求 自 变 量 的 余弦 什 实 | 实 
TAN(CX) 求 自 变 量 的 正切 值 实 -| 实 
ASIN(X) 求 自 变 量 的 反正 弦 什 实 | 实 
| 自 变量 | <1， | 结果 | 过- 


ACOS(CX) 求 自 变 量 的 反 余弦 值 。 实 实 
| 自 变 量 | 入 ! ，0 科 结果 近 r 


ATAN(X) 求 自 变量 的 反正 切 值 ，| 结果 | 入 二 实 | 实 
ATAN2CX ,Y) 求 两 个 自 变量 的 反正 切 值 。 | 结果 | 委 r 实 实 
SQRT(X) 求 自 变量 的 平方 根 。X>>0 实 | 实 
EXP(X) 求 自 变量 以 e 为 底 的 指数 函数 值 实 | 实 
ALOG(X) 求 自 变量 以 e 为 底 的 自然 对 数 信 实 | 实 
ALOGI0(CX) 求 自 变量 以 10 为 底 的 对 数值 实 | 实 
ABSCXy) 求 自 变量 的 绝对 值 实 | 实 
INTCX) 取 自 变量 的 整数 部 分 实 ; 整 
REAL(CX) 将 自 变量 的 值 转 为 实 型 值 整 实 
AINT(X) 取 自 变量 的 整数 部 分 为 实 型 值 芝 小 误 
NINT(X) | 取 自 变量 舍 入 后 的 整 型 什 实 | 整 
ANINT(X) | 取 自 变量 含 入 后 的 实 型 侍 实 | 实 
习题 一 


1. 下 面 的 数 哪 些 是 整数 ? 哪些 是 实数 ? 
35，27.68，56.，1250，500 蕊 一 3，1 .25 下 2 
2. 把 下 列 数据 表示 为 FORTRAN 语 言 所 允许 的 数据 。 
10"8，12X102，0.45X100，567.0，327678 

1 1 
56 吃 ， 一 1000 ， 一 0=2  ， 0.000478 
3. 下 列 符号 串 哪 些 是 FORTRAN 名 ? 哪些 不 是 ? 为 什么 ? 
ABC，Al2，1AB，XYZ，ABCDEEFG 昌 ， 
Q，BAB，C-567，$78A，A#4 
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4 .用 FORTRAN 表 达 式 来 表 示 下 列 式 子 。 


T 

k 

和 : 汪 : 《于 

《X2 十 72)， 人 ( 世 ) (一 k) 
X 十 1 


| zx-yil <1072， cosa 二 sinB， W 区 十 了 十 时 


se。 18 。 


第 二 章 ”简单 程序 


一 个 FORTRAN 程 序 由 一 个 系列 的 语句 组 成 。 学 习 编 
写 FORTRAN 程 序 ， 首 先 就 要 了 解 这 些 语句 ， 它 们 各 自 有 
什么 作用 ， 如 何 书写 ， 在 程序 中 所 处 的 位 置 等 等 。 

我 们 这 里 所 说 的 简单 程序 指 的 是 由 一 个 FORTRAN 主 
程序 单位 构成 的 程序 。 先 看 一 个 例子 。 

例 1 求 fE(x ) 王 ax 十 bx 十 c 在 给 定 a，b，ec 及 太后 的 
函数 值 。 


全 二 了。 心 

B=5.o 

已 = 

X= 定 。 曲 

户 X 一 闪闪 X 关 X 十 号 其 X 十 人 

WRITE(# 1X FOX) = F6.2)) Fy 
END 


这 就 是 一 个 FORTRAN 和 程序。 其中， 第 一 个 语 句 到 第 
四 个 语句 为 算术 赋值 语句 ,它们 将 实 型 常数 3.0、5.0、 一 2.0 
和 2.0 分 别 赋 给 实 型 变量 A、B、C 和 X。 第 五 个 滞 句 也 是 冉 
值 语 句 ， 它 将 计算 结果 送 到 实 型 变量 FX 中 . 第 六 句 是 输出 
语句 ， 它 将 计算 结果 显示 出 来 。 最 后 是 程序 结束 语句 。 下 面 
我 们 来 介绍 这 些 语句 。 


2.1 数值 语句 


1. 算 术 赋 值 滞 名 


算术 赋值 语句 可 用 来 确定 整 、 实 型 变量 的 值 ， 它 是 数值 
计算 中 主要 使 用 的 语句 之 一 。 

格式 ， (变量 名 = 算术 表达 式 》 

作用 : 将 算术 表达 式 的 值 送 到 左 部 变量 中 。 

一 般 要 求 左 部 变量 和 右 端 表达 式 的 数据 类 型 必须 一 致 。 
如 果 数 据 类 型 不 一 致 。 赋 值 语 句 则 以 左 部 变量 的 数据 类 型 为 
准 ， 将 算术 表达 式 的 值 转换 成 左 部 变量 的 类 型 后 再 进行 传 
下 面 是 算术 赋值 语句 的 例子 ， 

FX=AswXxXwXx 十 BewAX 十 C 
，， AB=1.56 

I=-2 

荆 一 上 十 ! 

例 中 革 = 工 十 1 是 将 L 的 当前 值 加 上 整数 1 后 再 赋 给 整 型 变 
量 L 。 

下 面 的 赋值 语句 是 不 正确 的 ， 

A==B 王 又 十 3.14159 

X 十 1 王 SQRT (B 米 2 一 4 米 A#C) 

在 FORTRAN 语 言 中 ， 一 个 赋值 语句 只 能 对 一 个 变量 赋 
值 ， 所 以 A=8B=X 十 3.14159 是 错误 的 。 如 果 要 对 不 同 的 变 
量 赋 同 一 个 表达 式 的 值 ， 则 必须 分 开 写 成 多 个 赋值 语句 。 
如 ， 

A 一 X 十 3.14159 
B 王 X 十 3.14159 
另 一 个 赋值 语句 的 错误 原因 请 读者 自己 考虑 。 
2. 字 符 赋 值 语 名 
前 面 介 绍 的 算术 赋值 滞 句 ， 只 能 对 数值 型 量 进行 赋值 ， 
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对 于 字符 型 量 的 赋 秆 则 要 通过 字符 赋值 语句 来 实现 。 

格式 ,， 《变量 名 = 字符 表达 式 》 
其 中 ， 左 端 变量 名 只 能 是 字符 型 变量 名 ， 和 作 人 网 
语句 CHARACTER 中 加 以 定义 。 

右 端 为 字符 表达 式 ， 它 产生 一 个 字符 型 值 。 字 符 表 达 式 
可 以 是 字符 常量 、 字 符 变 量 、 字 符 型 数组 元 素 。 


算术 赋值 语句 可 以 将 常数 赋 给 左 部 变量 ， 实 现 为 变量 赋 
初 值 的 目的 。 如 果 数 据 很 多 ， 要 用 这 种 方式 赋 初 值 ， 程 序 就 
写 得 太 长 了 ， 不 大 适合 实际 工作 的 需要 。 是 否 还 可 以 用 其 它 
语句 来 对 变量 赋 初 值 呢 ? 当然 可 以 。 这 就 是 DATA 数 据 语 名 
的 作用 。 

格式 ，DATA (变量 才 )/( 常 数 表 y/ 

其 中 ， 变量 表 可 以 是 一 个 或 多 个 整 型 、 实 型 变量 名 、 字 符 变 
量 名 、 数 组 名 或 数组 元 素 名 ， 它 们 彼此 之 间 用 逗号 “，” 隔 
开 。 

常数 表 中 的 常数 可 以 是 整 型 、 实 型 或 字符 型 常数 ， 常 数 
的 类 型 必须 与 所 对 应 的 变量 名 的 数据 类 型 相同 。 常 数 之 间 也 
用 逗号 “，” 分 隔 ， 并 且 括 在 两 条 斜 线 “/” 之 间 。 常 数 的 
顺序 应 与 变量 表 中 变量 的 顺序 、 个 数 一 一 对 应 ， 如 ， 

DATA X，Y，Z，A，B/100.0，1.56，2.37，4.5， 
0.0/ 

这 个 DATA 语 句 是 将 实 型 数 100.0、1.56、2.37、4.5 和 
0.0 分 别 赋 给 对 应 位 置 的 实 型 变量 X、Y、2Z2、A 和 B。 这 个 数 
据 语 句 也 可 以 写成 ， 
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DATA X，Y，Z/100.0，1.56，2.37/ 

DATA A，B/4.5，0.0/ 或 

DATA X，Y，2Z2/100.0，1.56，2.37/，A， B/4.5， 
0.0/ 

如 果 要 对 字符 变量 赋 初 值 ， 使 用 DATA 诸 句 也 很 方便 。 
如 ， 

CHARACTER C 肌 关 5，CH1I，CH2 关 3 

DATA CH，CH1I，CH2/′ ABCDE ”，“ 呈 '， 
304/ 

在 常数 表 中 ， 如 果 连 续 出 现 na 个 相同 的 常数 ， 则 可 写 
成 ， 

naX《 常 数值 》 

其 中 ，z 为 重复 因子 ， 它 指出 相同 常数 值 的 个 数 ， 重复 
次 数 与 常数 值 之 间 用 星 号 “ 关 ” 间 隔 。 如 ，6 关 1.0, 表 示 1.0 
重复 使 用 6 次 。 

DATA A，B，C，D/4<1.5/ 

这 表示 将 1.5 分 别 送 到 变量 A、B、C、D 中 。 

在 程序 单位 中 要 用 DATA 语 名 对 变量 赋 初 值 ，DATA 
语句 必须 出 现在 所 有 说 明 语 名 之 后 第 一 个 语句 函数 语句 或 可 
执行 语 名 之前。 如， 

DATA A，B，C，X/3.0，5.0， 一 2.0，2.0/ 

FEX==AxXxXxX 十 BXX 十 C 

WRITE(K， (1IX ECX) 三 ，F6.1)7 )RFX 

上 END 

注意 ， 形 参 、 公 用 块 中 的 变量 利 困 数 名 不 能 用 DATA 语 
名 赋 初 值 。 


2.3 简单 的 输入 输出 


2.5.1 输入 输出 说 句 


在 程序 中 有 时 要 输入 数据 ， 有 时 又 要 条 出 数据 ， 这 就 要 
用 到 输入 痊 出 语句 。 

格式 ，READ (u f ) (输入 表 )》 

WRITE (u，f ) (输出 表 》 
其 中 ，READ、WRITE 分 别 是 输入 输出 语 句 的 语 多 定义 
符 。 

u 为 部 件 号 ，{ 称 为 数据 的 输入 或 输出 格式 标识 符 。 

1. 部 件 号 

部 件 号 ( 又 称 为 设备 号 》 指 所 使 用 的 外 部 设备 的 代号 ， 
它 不 同 于 UCSD 操 作 系统 下 的 卷 号 ( 如 ，# 4 等 ) 。 

在 计算 机 系统 上 都 配备 有 基本 的 输入 输出 设备 ， 如 ， 宽 
行 打印 由 、 软 磁盘 、 键 盘 和 显示 ( 监视 ) 器 等 ， 可 用 阁 数 为 
它们 编号 ， 以 后 要 使 用 这 些 设备 时 ， 给 出 设备 编号 就 行 了 。 

FORTRAN 语 言 系统 规定 ， 

在 输入 语句 中 ， 用 0 或 # 表 示 键 盘 。 但 在 输出 语 句 中 却 
代表 显示 器 (屏幕 ) 。 

部 件 号 u 可 以 是 一 个 整 型 变量 、 整 型 常数 或 整 型 表达 
式 。 如 果 是 整 型 变量 或 整 型 表达 式 ， 那 么 变量 必须 事先 被 赋 
值 。 

2. 格 式 标 识 符 

格式 标识 符 为 输入 输出 语句 提供 数据 传输 的 格式 ， 格 式 
未 识 符 可 以 是 一 个 标号 ， 它 由 格式 语句 FORMAT 定义 ,可 
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以 是 格式 编辑 字符 串 (字符 常数 ) ， 也 可 以 是 赋 有 格式 编辑 
字符 串 的 字符 变量 以 及 已 典 FORMAT 诸 句 标号 的 整 型 变 
量 。 

3. 输 入 输出 表 

输入 输出 表 由 一 个 或 多 个 元 素 组 成 ， 相 互 间 用 逗号 
“，” 隔 开 。 

输入 输出 表 中 所 有 元 素 的 序列 可 以 被 输入 输出 格式 作为 
一 个 数据 或 分 成 多 个 数据 。 也 就 是 说 ， 执 行 一 个 输入 或 输出 
操作 意味 着 输入 或 输出 一 个 数据 或 多 个 数据 ， 并 且 是 从 一 个 
新 的 数据 开始 的 。 

值得 注意 的 是 : 和 的 天 生生 人 全 全 富生。 我 们 
来 看 下 面 的 输入 输出 语句 ， 

a，READ ( 关 ，'3F5.2)7X，Y，Z 

b。 CHI=′ (2F5.1，I4) 
READ( 关 ，CHI )XYZ，ABC，I123 
c，WRITE (<* 人 ，“ (3F5.2)′ )X Y，Z 
d，、WRITE( 关 ，IFR )′XYZ2= ′ ，XYZ，′ 一 呈 
ABC=“，ABC 
上 述 输入 和 给 出 语句 中 的 变量 均 遵 循 隐 含 (I-N ) 规则 。 
执行 语句 a， 计 算 机 要 求 从 键盘 上 用 直接 格式 输 入 一 个 
新 数据 开始 的 三 个 实 型 数据 ， 并 分 别 按照 输入 的 顺序 赋 给 
X、Y 和 2Z。 

执行 b 后 ， 将 由 格式 变量 决定 从 键盘 上 输入 两 个 实 型 数 
分 别 赋 给 实 型 变量 XYZ 和 ABC， 最 后 一 个 为 整 型 数 ， 赋 给 
玫 型 变量 I123。 

执行 语句 c， 将 实 型 变量 X、Y、2Z 的 值 从 相应 的 内 存储 
器 中 按 格式 输出 到 屏幕 上 。 
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最 后 一 个 与 语句 前 面 的 输出 不 同 ， 即 输出 表 中 出 现 了 字 
符 型 常数 。 当 该 语句 被 执行 时 , 则 按 格式 变量 提供 的 格式 首先 
将 字符 常数 “XYZ=” 显 示 在 屏幕 上 ， 接 着 再 将 实 型 变量 
XY2Z 的 值 从 内 存 取出 并 按 格式 变量 IFR 提 供 的 格式 显示 。 同 
理 ， 可 输出 字符 常数 “一 一 ABC=” 和 变量 ABC 的 值 。 

例 2” 对 于 f (x ) = 一 ax? 十 bx 十 c， 给 出 若干 组 as、b、e 及 
x 的 值 ， 分 别 求 每 组 值 对 应 的 {(x ) 值 。 

源 程序 如 下 ， 


REAL .ABC ，X 
WRITE ( 基 。 3 《(3 ENTER ABCyX=2 7) 
READ (#x,， (4F4.1) ABC X 
疡 X 一 从 关 X 基 X 二 所 #X+C 
WRITE(# (FF(X) = “FiDO.4) ) FX 
END 

我 们 可 以 反复 运行 这 有 段 程序 ， 而 每 次 运行 时 输入 不 同 的 

一 组 值 。 如 ， 

ENTER A，B，C，X=? 

3.0 呈 5.0 呈 一 2.0 呈 2.0./ 

F(X ) = 20.0000 


2.5.2 格式 说 明 及 其 应 用 


格式 说 明 有 多 种 形式 ， 如 前 面 例 中 所 使 用 的 形式 就 是 其 
中 之 一 。 下 面 将 进一步 讨论 常用 的 直接 格 式 说 明和 下 OR- 
MAT 语 句 提供 的 格式 说 明 。 

1. 直 接 格式 说 明 

格式 : ′( (格式 说 明 》) 

它 用 单 撤 号 和 圆 括 弧 将 格式 说 明 括 起 来 ， 而 格式 说 明 又 
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可 以 是 一 个 或 多 个 格式 码 ， 可 将 这 一 格式 直接 艇 入 输入 和 输 
出 语句 中 。 如 ， 

WRITE (#，/21X，5HF(X ) =，F10.2 )′) EX 

按照 这 种 格式 说 明 输出 结果 如 下 ， 

FE(X ) = 一 一 一 一 一 20 .00 

从 上 面 的 输出 语句 中 已 经 看 到 格式 码 的 作用 和 简单 用 
法 。 那 么 ， 怎 样 编写 所 需要 的 格式 说 明 ， 选 用 那些 格式 码 以 
及 格式 码 与 输入 输出 表 中 变量 的 关系 如 何 呢 ? 下 面 将 分 别 予 
以 介绍 。 

2. 常 用 的 格式 码 

格式 码 是 格式 说 明 的 基本 组 成 部 分 (或 称 为 格式 元 
素 ) ， 按 其 功能 分 成 可 重复 的 格式 但 和 不 可 重复 的 格式 码 。 
利用 格式 码 可 自由 组 合 输入 输出 格式 。 常 用 的 格式 码 主要 有 
JI]、F、 下 、X、H、“ 和/。 

〈1 ) 整 型 格式 但 1 

整 型 格式 码 I 用 来 规定 整 型 数据 的 输入 和 输出 。 它 的 一 
般 形 式 为 ， 

rw 
其 中 ，r、w 均 为 正 整数 。w 用 来 指定 整数 的 位 数 ， 称 为 数据 
的 输入 输出 宽度 ， 又 称 为 单 场 宽 ( 或 字段 宽度 ) 。 

+ 是 重复 因子 。 当 多 个 整数 选用 同样 的 I 格 式 人 码 进行 输入 
输出 时 ， 可 以 不 必 重 复 书 写 多 个 相同 的 格式 全 ， 而 采 用 r 重 
复 因 子 ， 指 出 重复 使 用 的 次 数 ， 如 ， 

READ(X< 人 ，“(I3，I3，1!3 )“I，J， 开 也 可 写成 ， 

READ( 关 ，'" (313)“ )1I，J ，K 

这 个 输入 语句 的 含义 是 从 键盘 上 接收 三 个 整 型 变量 [、 
J、 开 的 值 ， 每 个 值 占 三 位 ，13 表 示 每 个 整数 占 3 位 ，3I3 表 
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示 这 种 格式 重复 执行 三 次 。 

若 输 入 数据 为 ， 

123456789./ 

则 I=123，J 王 456， 开 一 789 

使 用 格式 公 输 入 数据 时 应 注意 ， 

答 入 数据 中 有 效 的 空格 等 于 零 ， 

正 或 负 号 放 在 数值 的 前 面 ， 正 号 可 以 和 省略， 在 输入 正 负 
号 时 ， 正 号 或 负 号 均 要 计 入 格式 码 所 指 的 宽度 内 ， 

输入 的 数据 应 按 I 格 式 公 “向 右 看 齐 ”， 不 足 w 时 ， 应 在 
数字 左边 补 空格 或 零 ， 

若 输入 表 中 元 素 的 个 数 多 于 格式 码 的 个 数 ， 则 一 个 输入 
数据 的 长 度 等 于 所 有 格式 码 场 宽 的 总 和 。 

对 于 输出 语句 中 的 格式 说 明 与 此 类 伏 。 但 对 于 显示 或 打 
印 输出 语句 来 说 ， 数 据 的 开头 必须 提供 显示 或 打印 的 控制 
符 ， 否 则 系统 将 数据 的 第 一 个 字符 当 作 控制 符 使 用 ， 从 而 造 
成 显示 或 打印 输出 数据 的 第 一 个 字符 被 “ 吃 ” 掉 。 在 UCSD 
PASCAL 操 作 系统 下 的 FORTRAN II.I 则 不 存在 此 问题 。 

用 II 格式 公 输 出 时 ，FORTRAN 语 言 规定 ; 

给 出 数据 中 元 素 之 间 没 有 空格 符 ， 因 此 ， 编 排 格式 说 明 
时 ， 可 将 字段 宽度 加 大 一 些 。 

数字 “向 右 看 齐 ” 输 出 。 输 出 数据 的 位 数 少 于 字段 宽度 
时 ， 则 左边 补 空 。 

输出 数据 中 的 数 为 正 时 ， 则 正 号 被 省 略 ， 如 果 为 负数 ， 
则 在 数字 前 打印 出 负 号 并 计 入 字段 的 宽度 中 。 

如 果 输 出 字符 宽度 大 于 给 定 的 字段 宽度 w， 则 打印 输出 
ww 个 星 号 “ 关 ”。 

〈《2 ) 实 型 格式 符 F 
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实 型 格式 符 用 来 指定 实 型 数 的 输入 输出 。 其 一 般 形 式 

是 ， 
rEw.d 
其 中 ，r、 的 含义 同 I 格 式 公 。 

d 表 示 答 入 输出 实数 的 小 数 部 分 的 位 数 。 

在 F 格 式 符 中 ， 字 段 宽度 w 称 为 第 一 字段 宽度 (总 宽 
度 )，d 称 为 第 二 字段 宽度 。 又 称 F 格 式 符 为 双 字 段 宽 的 格式 
但 。 

用 下 格式 符 传输 实 型 数据 的 形式 是 ， 


AN 
士 关 关 0 
盖 一 一 
d 


输入 四 个 实 型 变量 A，B，C，X 的 值 ， 语 句 可 写成 ， 
READ(<，“′(F4.1，F3.1，FE4.1，F3.1)′)A， 


B，C，X 或 
READ( 关 ，“′ (4F4.1)′)A，B，C， 又 
若 前 者 的 输入 数据 为 ， 


已 3.05.0 一 2.02.0./ 
则 ，A=3.0，B= 王 5.0，C= 王 一 2.0， 双 一 2.0 

后 一 个 语句 是 将 前 一 个 语句 的 格式 符 统 一 为 “4.1” 的 
字段 宽度 ， 于 是 在 F4.1 格 式 符 前 带 重 复 因子 ， 即 重复 执行 F 
4.1 格 式 符 四 次 。F4.1 意 思 是 每 个 实数 占 四 位 ， 其 中 有 一 位 
小 数 。 

实际 使 用 中 如 何 傅 定 F 格 式 符 的 w 和 d 呢 9? 可 用 下 列 公式 
估计 ， 

当 实 型 数 小 于 0 时 ，w 过 nan 十 d 十 2 
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当 实 型 数 大 于 或 等 于 0 时 ，wn 十 4 十 1 

如 果 在 宽度 许可 的 情况 下 ， 可 统一 用 公式 

WwW 二 D 十 d 十 2 

来 确定 第 一 字段 宽 。 

其 中 ，z 为 整数 部 分 的 位 数 ，d 为 小 数 部 分 的 位 数 ， 数 字 
2 代表 小 数 点 和 符号 的 位 数 。 

(3 ) 指数 型 格式 符 忆 

除 实 型 格式 符 F 以 外 ， 还 有 一 种 格式 ， 其 输 入 和 输出 的 


数据 为 指数 形式 ， 


士 0. 兴 关 。。. 闪 闪 了 土 兴 关 
YY 


格式 符 的 形式 是 ， 

TfEEw.d 
其 中 r、w、d 的 意义 同 格式 符 F。 

用 忆 格 式 符 ， 输 入 输出 数据 可 以 适应 不 同 大 小 的 数值 。 
用 于 输出 时 ， 它 可 以 有 足够 的 有 效 位 数字 ， 输 出 精度 比 F 格 
式 要 高 得 多 。 只 要 传输 的 数据 在 实数 范围 内 ， 均 可 得 到 正确 
的 赴 ， 而 不 存在 超 长 度 的 问题 。 


下 面 是 也 和 E 格 式 的 比较 ， 
变量 值 格式 符 输 出 
234567890123.75 匡 14.8 一 .23456789 下 十 12 
Fl4.8 关 尖 类 尖 尖 闪闪 兴 关 尖 关 其 尖 各 
一 0.0003756 了 13.6 吓 一 .375600 瑟 一 03 


EFE14.7 二 呈 一 一 一 一 .0003756 
如 采 输 入 语句 中 使 用 己 格式 符 ， 则 对 于 大 数据 的 输入 也 
29 。 


是 方便 的 。 

输出 数据 宽度 叉 的 确定 ， 

当 数 据 值 之 0 时 ， 双 d 十 6 

当 数 据 值 C0 时 ，Wd 十 ?7 

一 般 都 选择 后 者 较为 安全 。 

《4 ) 空格 格式 符 叉 

空格 格式 符 的 形式 是 ， 

又 

其 中 ，n 为 正 整 数 。 、 

在 输入 语句 READ 中 ，nX 格 式 符 使 数据 位 置 向 前 移动 
na 个 字符 。 因 此 从 数据 的 当前 位 置 开 始 的 n 个 字符 被 跳 过 。 

在 输出 语句 WRITE 中 ，nX 格 式 符 从 当前 位 置 开 始 输 出 
na 个 空格 ， 使 输出 的 结果 前 后 之 间 有 一 定 空格 易于 阅读 。 

nX 格 式 符 是 不 可 重复 的 格式 符 。 因 此 ， 不 能 在 nX 前 再 
加 重复 因子 。 输 入 给 出 表 中 也 没有 与 之 对 应 的 项 ， 请 看 下 面 
的 示例 : 

WRITE ( 关 ，“ (1X2F6.2，I4)′)A，B，jJ 

如 果 A= 345.23，B 王 456.78，J 一 9123， 则 输 出 结果 


345.23456.789123 (〈 显然， 数据 间 无 空格 ) 
若 将 输出 格式 改写 为 ， 
WRITE(#*, (1X，2F8.2，3X，I4) )A,B，J 
则 输出 结果 为 ， 


345,23 一 一 456.78 一 一 中 9123( 数 据 间 有 空格 ) 
一 一 一 

FE8.2 F8.2 SX 14 
(5 ) 文字 格式 符 五 


。， 30 。， 


文字 格式 符 可 用 于 输出 格式 符 后 面 出 现 的 全 部 字符 。 其 
| h 1 h hn 


Scan 


~ 一 


n 个 字符 


其 中 ，z 为 正 整数 ， 它 指明 五 后 字符 的 实际 个 数 。 
hi (i 一 1，2…，a ) 代表 一 个 字符 。 如 ， 
WRITE (<*， (1X，2HA=，F6.2，3X，2HB=，F 
6.2，5H 一 一 JJ 王 ，I4) )A，B，]j 
如 果 变 量 的 值 如 前 例 ， 则 输出 结果 为 ， 
A = 345.23 一 B 一 456.78 一 一 9123 


SR 


2H  F6.2 3X 2H  F6.2 5 于 [4 


〈《6 ) 撤 号 格式 符 ““” 

撤 号 格式 符 具 有 字符 常数 的 形式 ， 它 用 于 直接 输出 字符 
串 。 如 ， 
WRITE (+#*，“(1X，“ CHINESEEDUATIONCO 
MPUTER 一 -CEC 一 I 7 )) 

输出 结果 是 ， 

CHINESE--EDUCATIONCOMPUTER-CEC 
一 1 

(7 ) 斜 杠 格式 符 “/ 

斜 杠 格式 符 指明 当前 的 数据 传输 结束 ( 末端 ) 。 对 于 输 
入 数据 ， 斜 杠 格式 符 的 作用 是 跳 过 当前 数据 的 剩余 部 分 ， 定 
位 于 下 一 个 输入 数据 的 开始 。 对 于 输出 数据 ， 斜 杠 格式 符 结 
东 当 前 数据 并 定位 于 下 个 数据 的 开始 。 当 用 于 打印 格式 说 明 
时 ， 连 续 n 个 斜 杠 表示 打印 a 一 1 个 空 行 。 如 ， 
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WRITE (*，”(///，20X，“ ZHONG 一 一 一 HUA 
XUE 

#LiLLIXIDU JI ，//A/，30X， CEC 一 T/， 
///) ) 

请 读者 自己 考虑 这 个 打印 语句 的 输出 结果 是 什么 格式 。 

3. 格 式 语 名 

格式 语句 是 向 输入 输出 语句 提供 格式 说 明 的 一 种 非 执行 
河 句 ， 也 是 一 种 说 明 语 句 ， 它 和 其 它 说 明 语 句 不同 ， 它 可 以 
出 现在 任何 可 执行 语句 之 间 。 但 它 必 须 出 现在 使 用 沪 语 名 的 
程序 单位 中 。 

格式 语句 的 形式 是 ， 

《标号 )FORMAT ((〈 格 式 说 明 》) 

其 中 (格式 说 明 由 格式 符 序列 组 成 。FORMAT 语 句 的 
前 面 ( 标号 区 ) 必须 有 标号 ， 标 号 为 输入 输出 语句 引用 格式 
提供 信息 。 

在 输入 输出 语句 中 ， 输 入 输出 表 中 变量 的 类 型 要 与 格式 
说 明 中 格式 符 的 类 型 一 致 。 同 一 个 格式 语句 可 被 多 个 输入 输 
出 语句 所 引用 ， 即 共享 同一 格式 。 

在 程序 设计 过 程 中 ， 往 往 将 所 有 的 格式 语句 集中 放 于 本 
程序 单位 的 尾部 ， 以 增加 程序 的 可 读 性 。 

例 3 编写 求解 一 元 二 次 方程 ax 十 bx 十 c=0 的 两 个 实 根 
的 程序 。 

求 根 公式 为 ， 


二 了 
RE ;他 =ee ， 当 b: 一 4ac>0 时 有 两 个 实 根 。 


其 中 a，b，c 分 别 为 方程 的 系数 。 下 面 是 求 根 的 一 个 源 程序 。 
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CC THE ROOTS OF THE QUADRAGTIC EQUATION。 
多 民工 TEXTLOOD) 
READ《(X SOD) 人 及) 已 
D=SBRT ( 瑟 #B 一 4 。 口头 生 共 己 ) 
X1= (一 BT+D) 7 (2。ODXA) 
X2= 《一 一 DD) 7 (了 .已 共有 ) 
基 民 工 TEE《 共 9DO) 台 ， 
多 民 ITEE《 闪 9 委 口 Q) XXX 全 

半 口 品 FORMAT LTX ENTER 扣 ，C=3 ) 

20D FORMAT (SFS。1L) 

OO FORMAT (1X = toOX BRB= TOX C= 9 
1VZ1XyS SFS。1y7X) LA) 


40O0 FORMATLtX， Xi 17X X2= 
171X5 人 FTL4。S5 的 X)) 
END 


选 定 一 组 系数 后 ， 运 行 结果 如 下 ， 
ENTER A，B，C=， 

号 2.010.0 忆 已 5.0.7/ 

A= B= C= 


号 2.0 记 DODD10.0DDoD55.0 


义 1 一 义 2 一 
一 .56351 一 4.43649 


习题 二 
1. 下 列 赋 值 语句 哪些 是 正确 的 ? 哪些 不 正确 ? 为 什么 ? 
X 一 3.14159/180，A 一 B=X 二 Y 十 0.5 
f(X) 一 XeX 二 YeY,Xl23 一 (AswsA 二 BeB) se (一 2) 
2. 把 下 列 各 式 写成 赋值 语句 
A 一 wxXT+TTYT，CH= |Xi+Xs | <e，L=XPY 
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3 .下 列 输 闪 输出 语句 正确 吗 ? 为 什么 ? 
READe， 7" ABCD7，'F(X) = 
WRITE(1I0，'(F5.2) )/ XXX Y，2 
4. 编 写 程 序 ， 


sin(|X|I 二 |Y1) 
， VeasCTX7T》 


其 中 ， 人 一 22.5 ，Y 一 13.4" 
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第 三 章 “FORTRAN 程 序 的 运行 


现在 我 们 已 经 能 够 书写 简单 的 FORTRAN 程序 了 。 为 
使 读者 能 够 尽快 的 在 CEC-I 机 上 编写 和 运行 FORTRAN 程 
序 ， 我 们 暂时 中 断 对 滞 言 的 介绍 ， 转 而 介绍 如 何 输入 .修改 、 
编译 、 连 接 和 运行 程序 。 

中 华 学 习 机 CEC- 工 是 与 APPLE- I 兼容 的 计 算 机 系 
统 。 我 们 成 功 地 将 APPLE-E 在 UCSD PASCAL 操 作 系 统 
下 的 FORTRAN77 引 入 到 CEC-I 中 ， 实 现 了 该 系统 下 的 全 
部 马 能 。 下 面 介 绍 UCSD PASCAL 操 作 系统 下 FORTRAN 
语言 在 CEC-I 机 上 的 运行 处 理 方法 。 


3.1 UCSD PASCAL 下 的 FORTRAN 配 置 


UCSD PASCAL 操 作 系统 下 的 FORTRAN77 是 一 个 功 
能 较 强 的 高 级 程序 设计 语言 ,与 FORTRAN77 有 关 的 全 部 文 
件 分 别 存放 在 两 张 单 面 软盘 上 ( 软盘 名 分 别称 为 FORT1， 


和 FORT2，) 。 
FEORT1:， 盘 .上 有 下 列 文件 ， 
FORTLIB.CODE FORTRAN77 库 编辑 程序 。 
SYSTEM .APPLE 用 6502 机 器 语言 编写 的 P 代 
公 解 释 程序 的 数据 文件 。 
SYS9TEM,.PASCAL UCSD PASCAL 操 作 系 统 
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主 程序 。 


SYSTEM.MISCINFO 使 用 的 终端 信息 ， 告 诉 系统 
有 哪些 终端 设备 。 
SYSTEM.CHARSET 图 形 字 符 集 。 
SYSTEM .FILER 文件 管理 程序 ， 用 于 存 入 、 
删除 和 传送 文件 等 。 
SYSTEM . EDITOR 文本 编辑 程序 。 
SYSTEM.LINKER FORTRAN 连 接 程序 。 
FORT2， 盘 上 存放 有 下 列 文件 ， 
SYSTEM.LIBRARY FORTRAN77 程 序 库 。 
SYSTEM . PASCAL 同 FORT1 盘 。 
SYSTEM.MISCINFO 同 FORT1 盘 。 
SYSTEM.CHARSET 同 FORTI1 盘 。 
SYSTEM.COMPILER FORTRAN77 语 言 编译 


程序 ， 可 将 FORTRAN 
源 文件 转换 成 P 代码 文 
件 。 

SY9TEM . APPLE 同 EFORT1 盘 。 

其 中 , FORT2， 是 UCSD PASCAL 操 作 系统 的 主 文件 
软盘 ， 我 们 称 为 系统 引导 盘 。 

如 果 你 的 计算 机 系统 具有 多 个 软盘 驱动 器 ， 则 本 将 
FORT2， 作 为 引导 盘 放 在 #4:， 驱动 器 上 ， 而 将 FORT1， 
盘 放 在 #5:， 了 驱动 器 上 。 这 样 , 当 启 动 UCSD PASCAL 后 ， 
系统 会 自动 到 # 4:， 和 #5:， 上 去 调用 所 需要 的 文件 ， 从 而 可 
以 实现 对 FORTRAN77 源 程序 文件 的 输入 、 编 辑 、 编 译 、 
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3.2 CEC-1 上 的 FORTRAN 配 置 


35.2.1 CEC-| 需 要 哪些 系统 文件 


从 上 节 中 已 经 看 到 ,UCSD PASCAL 操 作 系 统 下 FORT 
RAN77 的 全 部 文件 分 别 保存 在 两 张 基 上， 这 对 于 多 个 驱动 
器 来 说 使 用 是 方便 的 。 但 要 应 用 于 仅 有 一 个 驱动 器 的 中 华 学 
习 机 ， 就 有 困难 了 。 即 使 可 以 用 交换 盘 片 的 方法 进行 工作 ， 
但 最 后 连接 生成 代码 文件 时 仍然 出 错 ， 

CODE WRITE ERR 

TYPE (SP (CONTINUE ) ，(ESCy》 (TERMIN- 
ATE ) 

在 分 析 了 FORTRAN 系 统 配置 后 ， 就 可 以 根据 用 户 的 
需要 来 重新 构造 系统 软盘 。 在 这 之 前 ， 用 户 要 知道 以 下 两 
点 : 

1.UCSD PASCAL 操 作 系 统 的 基本 文件 

SYSTEM,APPLE 

SYSTEM,.PASCAL 

SYSTEM . MISCINFO 

SYSTEM ., CHARSET 

通过 它们 可 引导 进入 UCSD PASCAL 操 作 系统 。 

2.FORTRAN 的 工作 文件 

在 UCSD PASCAEL 操 作 系统 下 进行 FORTAN77 源 文 
件 的 建立 编辑. 编译、 连接、 运行 以 及 对 磁盘 文件 的 管理 ， 
必须 有 下 列 文件 ， 

(1 ) 能 够 建立 或 修改 FORTR AN77 源 程序 的 文本 编辑 
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程序 SYSTEM.EDITOR。 

(2 ) 能 够 编译 FORTRAN77 源 程序 文件 的 FORTRAN 
77 编 译 程序 SYSTEM.COMPILER， 它 将 FORTRAN77 源 
程序 文本 文件 翻译 成 P 代 但 文件 。 

〈3 ) 连接 P 代 码 文件 和 FORTRAN77 库 文件 中 的 子 程 
序 ， 需 要 连接 程序 SYSTEM ,LINKER 和 FORTRAN77 
库 文件 SYSTEM:'LIBRARY。 它 将 指定 的 P 代 公文 件 改造 
为 一 个 可 供 执行 的 代码 文件 。 

《4 ) 能 够 进行 磁盘 文件 管理 的 SYSTEM'FILER 文 
件 。 

以 上 提 到 的 四 类 系统 文件 ， 其 总 容量 已 超过 一 张 软 失 的 
最 大 容量 143 民 。 因 此 ， 只 能 放 在 两 张 软盘 中 ， 分 别 作 为 编 
译 和 连接 盘 。 除 将 与 编译 或 连接 FORTRAN 程 序 有 关 的 文 
件 存放 于 各 自 的 磁盘 上 之 外 ， 还 必须 具备 UCSD PASCAL 
操作 系统 的 基本 文件 。 


5.2.2 如 何 构造 CEC-! 的 系统 文件 盘 


明确 上 述 两 点 以 后 ,就 能 够 构造 适用 于 CEC-I 的 FORT- 
RAN 软 磁盘 了 。 其 操作 过 程 如 下 ， 

(1 ) 将 FORT2: 软盘 上 的 全 部 文件 分 别 复 制 到 两 张 空 
白 软盘 上 。 由 于 9YSTEM:LIBRARY 不 能 进行 单独 复制 ， 
因 些 ， 必 须 用 拷贝 软件 (如 COPY V8 .0 等 的 整 盘 复 制 功能 ) 
将 FORT2: 整 盘 复制 到 两 张 空 白 盘 中 。 

(2 ) 将 复制 的 这 两 张 盘 的 盘 名 分 别 改 为 CECF1， 和 
CECF2，。 

(3 ) 将 CECF1， 作为 连接 盘 ， 因 此 删 去 SYSTEM:C 
OMPILER 程 序 。 然 后 将 FORT1， 软 盘 上 的 SYSTEM:FIL 
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ER 和 SYSTEM.LINKER 两 个 程序 拷贝 到 CECF1 ， 盘 中 。 
(4 ) 将 CECFE2:， 作为 编译 盘 ， 因 此 可 删 去 SYSTEM， 
LIBRARY 程 序 。 然 后 将 CECF1:, 软盘 上 的 SYSTEM.FI 
LER 和 9YSTEM:'EDITOR 两 个 程序 拷贝 到 CECF2 ， 表 
中 。 
至 此 ， 已 构造 好 两 张 EFORTR AN 系统 软盘 CECF1:， 和 
CECF2，， 各 自 的 文件 分 别 为 ， 


CECF1， CECF2， 
9YSTEM'LIBRARY SYSTEM'EDITOR 
SYS9TEM'PASCAL SYSTEM:'PASCAL 
SYS9TEM'FILER SYSTEM'FILER 
395YSTEM:'MISCINFO 95YSTER'MISCINEFEO 
9YSTEM'CHARSET 9YSTEM'CHARSET 
SYSTEM'LINKER 9YSTEM:COMPILER 
9YSTEM'.APPLE 9YSTEM'APPLE 


系统 建立 以 后 ， 可 作 FORTRAN77 源 程序 文件 的 编 
辑 、 编 译 、 连 接 等 工作 。 


3.3 FORTRAN77 程 序 的 上 机 过 程 


UCSD PASCAL 操作 系统 下 的 FORTRAN 语言 是 一 
个 编译 型 的 软件 。 如 何在 中 华 学 习 机 上 运行 了 FORTRAN 程 
序 呢 ?9 下 面 将 分 别 介绍 它 的 每 一 步 操作 。 

5.35.1 启动 UCSD 操 作 系统 


启动 UCSD 操 作 系 统 有 两 种 方式 。 
1 .加 电 局 动 自动 进入 UCSD 命 令 级 
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当 你 按 正 确 的 方法 将 各 种 设备 连接 好 以 后 ， 首 先 打 开 电 
视 机 ( 或 显示 器 ) 的 电源 开关 ， 然 后 ， 将 含有 UCSD 操 作 系 
统 文件 的 软盘 CECF2: 插入 磁盘 驱动 器 中 ， 关 好 驱 动 器 小 
门 ， 再 打开 主机 电源 开关 。 此 时 可 听 到 主机 喇叭 发 出 的 

“ 哪 ” 声 ， 同 时 ， 键 盘 右 上 方 的 指示 灯亮 。 紧 接着 系统 将 启 
动 软盘 驱动 器 ， 并 从 CECF2， 盘 中 装 入 操作 系统 。 

当 UCSD 操 作 系 统 被 装 入 内 存 并 运行 后 ， 这 时 将 在 电视 
机 ( 或 显示 器 ) 的 屏 殴 顶部 显示 操作 系统 命令 级 的 提示 信 
息 ， 

COMMAND:, E(CDIT，R(UN，F(ILE，C(OMP，L 
(INKRK，X(ECUTE，A(SSEM，D(EBUG*? 

这 意味 着 UCSD 操 作 系 统 已 经 运行 ， 并 且 等 竺 用户 敲 入 
所 需 命令 的 第 一 个 字母 。 如 :， 敲 字母 “E”， 则 执行 文本 编 
辑 程 序 。 

2. 进 入 基本 系统 后 的 启动 

当 你 按 正确 的 操作 启动 基本 系统 ( 软盘 驱动 器 小 门 开 
着 ) ， 主 机 自动 进入 西 文 BASIC 状 态 ， 屏 幕 显示 如 下 ， 


ssmeemrvcen aeww weneveeeeeeew wm、 -me 


VERSION 1.1 


] 是 


aa 一 


图 中 的 “] ”为 西 文 BASIC 语 言 的 提示 符 ， 紧 接 的 小 方块 
AR 这 意味 着 系统 可 接收 用 户 输入 的 BASIC 命令 
村 < 

由 于 我 们 需要 进 一 步 引 导 UCSD 操 作 系 统 ， 因 此 ， 可 将 
含有 UCSD 操 作 系统 文 件 的 软盘 CECF2: 插入 驱动 器， 关 
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好 小 门 并 键入 命令 ， 
] PR#6./ 

当 你 殴 回 车 键 后 ，BASIC 系 统 解释 该 命令 并 启 动 磁盘 
机 ， 从 软盘 上 读 入 UCSD 操 作 系统 程序 并 运行 。 此 时 ， 屏 医 
顶部 显示 出 命令 级 的 提示 信息 ( 同 1 ) 。 

通过 上 述 两 种 方式 启动 UCSD 操 作 系 统 后 ， 系 统 等 待 用 
户 进 行 各 种 操作 。 对 于 FORTRAN 语 言 程序 的 运行 ， 还 必 
须 作 下 列 几 步 操 作 ， 

(1 ) 执行 文本 编辑 程序 SYSTEM:,'EDITOR， 建 立 和 
修改 FORTRAN 源 程序 文本 文件 . TEXT， 并 将 该 文件 存 
放 在 CECF2:， 航 上 。 

(2 ) 执行 CECF2: 盘 上 的 FORTRAN 编 译 程序 SYS- 
TEM.COMPILER， 对 FORTRAN 源 文件 进行 编译 。 如 果 
编译 时 无 错误 ， 则 产生 P 代 但 文件 .COD 正 ,， 如果 有 错误 ， 则 
可 执行 文本 编辑 程序 ， 对 该 FORTRAN 源 文件 进行 修改 并 
再 次 执行 本 步 操 作 。 

(3 ) 执行 文件 管理 程序 SYSTEM,:FILER 中 的 T 操 作 ， 
将 第 2 步 产生 的 P 代 公文 件 传送 到 连接 盘 CECF1， 上 。 

〈4 ) 执行 连接 程序 SYSTEM:LINKER， 将 P 代码 程 
序 连 接 (改造 ) 成 可 执行 的 代码 文件 .CODE。 

〈 5 ) 运行 第 4 步 产 生 的 可 执行 程序 。 


5.5.2 源 程序 的 输入 和 修改 


在 CECF2: 盘 上 的 SYSTEM.EDITOR 程 序 是 一 个 编 
辑 文本 文件 的 系统 实用 程序 。 在 UCSD PASCAL 操 作 系统 
的 COMMAND 命 令 级 ， 可 键入 字母 已 执行 文本 编辑 程序 ,在 
SYSTEM'EDITOR 程 序 的 控制 下 ， 即 可 实 现 FORTRAN 
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源 程 序 的 输入 。 

1. 启 动 文 本 编辑 程序 

在 UCSD PASCAL 操 作 系统 的 命令 级 下 键入 字母 忆 ， 
则 进入 编辑 程序 并 在 屏幕 顶部 显示 编辑 提示 信息 如 下 ， 
>EDIT :A(DIST C(PY DC(LETE F(CIND ICNS 
J(MP NO WORKFILE IS PRESENT FILE? 

提示 信息 的 第 一 行为 编辑 程序 的 功能 选择 ， 这 里 可 按 如 
下 方式 选择 回答 ， 

(1 ) 如 果 要 编辑 磁盘 上 已 存在 的 文本 文件 ， 则 可 直接 
输入 文件 各， 然后 敲 回 车 键 “。. ”将 指定 的 文件 读 入 内 在 
(此 时 的 文件 名 可 以 不 带 扩展 名 .TEXT。 系统 自 动 找到 带 
扩展 名 .TEXT 的 文本 文件 ) ， 并 显示 文本 文件 开始 部 分 的 
内 容 。 

(2 ) 如 果 是 建立 新 文件 ， 则 先 敲 回 车 键 ./， 然 后 融 字 
母 ] 键 ， 系 统 进入 允许 插入 状态 ， 出 现 插入 状态 下 的 提示 ， 
这 时 就 可 以 输入 源 程 序 的 语句 字符 了 。 

(3 ) 若 散 ESC 十 。/ ( 即 按 ESC 和 和 </， 下 同 ) 键 后 ， 则 
返回 到 COMMAND 命 令 级 状态 。 

2 .对 源 程序 的 处 理 

FORTRAN 源 程序 的 处 理 ， 可 分 两 种 情况 ， 

(1 ) 如 果 是 新 建 一 个 FORTRAN 源 程序 ， 则 首先 应 进 
入 搬入 状态 ， 在 此 状态 下 按照 FORTRAN 源 程序 的 格式 输 
入 所 有 的 语句 字符 ， 输 入 完 后 敲 CTRL+C 以 结束 插入 状 
态 。 若 需要 进行 修改 则 进入 编辑 状态 。 

(2 ) 如 果 对 已 存在 的 源 程 序 进 行 编辑 , 则 分 别 按 不 同 的 
选择 进行 。 

若 要 删除 某 些 字符 ， 则 应 键入 字母 D 进 入 删除 方式， 然 
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后 敲 光 标 控 制 键 “< ”和 “ 己 ”， 可 分 别 删除 当前 光标 左边 
或 右边 ( 包括 光标 下 ) 的 字符 。 当 未 结束 删除 而 光标 又 回 退 
时 ， 则 恢复 被 删 除 的 字符 。 删 除 结束 后 敲 CTRL 二 C。 洲 
CTREL+C 后 ， 删 除 的 字符 就 不 能 再 恢复 了 。 

若 要 搬入 某 些 字符 ， 可 将 光标 移 到 要 搬入 字符 的 位 置 ， 
然后 敲 字 母 1， 则 进入 捅 入 状态 。 这 时 可 将 添加 的 语 句 、 字 
符 等 播 入 到 此 处 。 同 样 ， 散 CTREL 十 C 可 以 结束 捅 入 状态 。 

其 它 功 能 选择 可 根据 需要 而 定 。 

在 进行 源 程序 的 编辑 处 理 时 ， 需 要 移动 光标 以 及 其 它 一 
些 控制 键 配 合 进行 。 常 用 的 光标 移动 控制 键 有 ， 


CTRL 十 C 中 断 处 理 或 退出 当前 编辑 状态 。 

> 向 右 移动 光标 。 

< 向 左 移动 光标 。 

CTRL+O 光标 上 移 一 行 。 若 要 移动 多 行 ， 可 先 


键入 行 数 ， 再 敲 CTRLTATO。 如 ，- 
3CTREL 二 DO, 则 当前 的 光标 上 移 3 行 。 
CTRL +L 光标 下 移 一 行 。 若 要 下 移 多 行 ， 则 先 
键入 行 数 后 再 融 CTRL +L。 如 ，5 
CTRL 十 L， 则 光标 下 移 5 行 。 


CTRL +I 光标 向 前 跳 过 8 个 字符 。 
CTRL 十 A 控制 屏幕 的 左 移 或 右 移 。 
3. 退 出 编辑 程序 


退出 编辑 程序 时 ， 当 前 应 处 于 编辑 功能 选择 状态 。 若 不 
是 则 攻 CTRL 十 C， 使 之 退 到 该 状态 。 此 时 可 选择 退 出 命令 
Q ( 即 QUIT ) 。 当 裔 字母 键 Q 后 ， 则 显示 如 下 提示 ， 

>>QCUIT 
U(GCPDATE THE WORKEFILE AND LEAVE 
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E(XIT WITHOUT UPDATING 
RCETURN TO THE EDITOR WITHOUT UPDAT 
ING 
W(CRITETO A FILE NAME AND RETURN 
S(AVE WITH SAME NAME AND RETURN 
这 里 有 五 种 退出 编辑 程序 的 方法 : 
(1 ) 选择 U 命 令 时 ， 则 将 编辑 缓冲 区 的 信息 以 ASCII 
但 形式 存 磁 盘 上 ， 其 文件 名 为 SYSTEM.WRK'TEXT.。 然 
后 返回 到 操作 系统 的 COMMAND 命 令 级 状态 。 
(2 ) 选择 已 命令 时 ， 则 返回 到 操作 系统 的 命令 级， 编 
辑 缓冲 区 的 信息 不 存 入 磁盘 ， 即 不 修改 原先 的 文本 文件 。 
(3 ) 选择 R 命 令 时 ， 则 退回 到 编辑 状态 下 继续 编辑 ， 编 
辑 缓冲 区 先前 的 信息 不 被 破坏 。 
(4 ) 选择 页 命令 时 ， 则 显示 下 列 提 示 : 
>QUIT: 
NAME OF OUTPUT FILE((CRTO RETURNI) 一 
输入 合法 的 文件 名 后 敲 “<- ”， 则 将 编辑 缓冲 区 的 信息 
存 入 指定 的 文件 中 ， 然 后 退出 编辑 程序 并 回 到 COMMAND 
命令 级 状态 。 
若 直接 敲 入 。/， 则 重新 回 到 编辑 状态 。 
(5 ) 选择 S 命令 时 ， 则 从 退出 状态 转向 保存 文件 的 操 
作 。 可 分 两 种 情况 进行 ， 
a. 编 辑 的 是 新 文件 ， 将 自动 把 编辑 缓冲 区 的 信息 存 入 描 
上 的 SYSTEM.WRK.TEXT 文 件 中 。 
b. 如 果 编 辑 的 是 由 文件 管理 SYSTEM','FILER 获得 的 
用 户 文件 名 ， 则 执行 5 命令 时 ， 系 统 显示 下 列 提 示 信息 ， 
PURGE OLD 文件 名 BEFORE SAVE9* 
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如 果 回 答 Y， 则 将 编辑 缓冲 区 的 内 容 存 入 原 有 文 本 ， 但 
磁盘 文件 名 不 变 。 如 果 回 答 N 则 将 编辑 缓冲 区 的 内 容 存 入 
SYSTEM.WRK.TEXT 文 件 。 

以 上 五 种 退出 编辑 程序 的 方式 ， 在 写 磁盘 文件 遇 到 磁盘 
存储 空间 不 够 时 ， 将 显示 出 如 下 提示 : 

ERROR，WRITING OUT THE FILE PLEASE 
PRES9S 
(SPACEBAR》TO_ CONTINUE 

此 时 只 能 项 空格 键 返回 编辑 状态 ,再 选择 其 它 退 出 方式 。 
例 1 输入 第 二 章 例 3 求解 一 元 二 次 方程 实 根 的 程序 ， 并 将 
源 程 序 用 ROOT 名 字 保 存在 磁盘 上 。 

FORTRAN 程 序 的 编辑 过 程 如 下 ， 

在 UCSD 命 令 级 裔 字母 已 命令 。 

忆 
>EDIT，A(DJST CC(PY DC(LETE FCIND ICNS 
J 了 (MP NO WORKFILE IS PRESENT FILE? 
<-/ 1 ( 散 回 车 键 后 再 输入 I 命 令 ) 
>>INSERT，TEXT(C( BSA CHAR，(DELA LINE] 

C THE ROOTS OF THE _ GIUADRATIC EQUATION。 

WRITE (#y1DO) 
READ (xy 200) ABC 
D=SQRT (B#xB-4.OxAKC) 
X1=(-B+D)A (2 共生》 
X2= (一 B-D) /7(2.OXA) 
WRITE(# 3SDO) ABC 
WRITE ( 关 ， 40D) X1yX2 

160 FORMATICLX ENTER 生理 C=3)》 

200 FORMAT(SFS。1) 

390 ”FORMATI1X， 6= iDOX， BRB= iDOX C= 

1《1XSCF5。17X) :77) 
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400 FORMAT1IX Xit= il7X，X2= 9 
17z1X 2F14。556X) ) 
END 


效 CTRL 十 C 后 再 敲 Q， 系 统 显 示 提 示 信 息 ， 
>>QUIT， 
U(PDATE THE WORKFILE AND LEAVE 
E(XIT WITHOUT UPDATING 
RCETURN TO THE EDITOR WITHOUT UPDATI 
NG 
WOCRITE TO A FILE NAME AND RETURN 
S(AVE WITH SAME NAME AND RETURN 
此 时 键入 到 后 出 现 提示 ， 
NAME OF OUTPUT FILE((CR TO RETURN ) 一 
〈 提示 信息 的 意思 是 要 求 输入 文件 名 并 带 扩展 名 .TEXT。 
若 无 扩 展 名 ， 系 统 在 文件 名 后 自动 加 上 扩展 名 .TEXT ) 
输入 文本 文件 名 ，ROOT， 则 将 编辑 缓冲 区 的 程序 存 到 
CECF2， 磁 手 上 ， 文 件 名 为 ROOT .TEXT。 
5.5:5 编译 源 程序 
编译 FORTRAN77 源 程序 ， 生 成 了 代码 文 件 以 作为 SYS 
TEM:'LINKER 文 件 的 输入 文件 。 其 过 程 如 下 ， 
C (用户 键入 编译 命令 ) 


COMPILING…. (系统 提示 信息 ) 

COMPILE WHAT TEXT? ROOT。 〈 输 入 要 编译 
的 文件 名 ) 

TO WHAT CODEEFILE9 ROOT (P 人 代码 文件 
名 。 若 用 ”$” 


代替 ， 则 卫 代 
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但 文 件 名 与 编 
译文 件 名 一 
致 ) 。 
LISTING FILE? -/ (输入 列表 文件 名 ， 若 不 
需要 则 直接 敲 ./。 也 可 答 
入 CONSOLE， 或 PRIN 
TER:， ， 前 者 在 屏幕 上 
显示 列表 文件 而 后 者 则 用 
打印 机 输出 列表 文件 ) 。 
FORTRAN77 一 (C ) 1980 SILICON VALLEY SOF- 
TWARE，INC.16-MAY-80 FORTRAN COMPILER 
下 下 CE 
《 0?… 
NONAME 人 WORDS ] 
《 2 
14 LINES93. O ERRORS. 
5MALLEST AVAILABLE SPACE= WORDS. 
到 这 时 ， 编 译 程序 将 源 程序 ROOT .TEXT 翻译 成 P 代 
但 文件 并 存储 在 ROOT .CODE 文 件 中 。 这 个 代码 文件 还 不 
能 执行 ， 必 须 连 接 之 后 才能 运行 。 


5.5.4 连接 P 代 码 文件 


在 连接 由 编译 程序 输出 的 P 代 码 文件 之 前 ， 必 须 通过 文 
件 管理 程序 SYSTEM:.FILER 的 传送 命令 T 将 P 代 码 文件 从 
编译 盘 ( CECF2，) 上 传送 到 连接 盘 ( CECF1 ，) 上 ， 将 
CECF1: 保留 在 驱动 器 上 。 然 后 在 UCSD 命令 级 键 入 字母 
“L”， 则 运行 连接 程序 。 其 过 程 如 下 ， 
二 泛 芝 二 


1. 从 编译 盘 上 将 P 代 码 文件 传送 到 连接 盘 上 
FF (用 户 在 UCSD 命 令 级 敲 入 文件 管理 命令 ) 

此 时 在 屏幕 顶部 提示 行 出 现 文件 管理 子 命令 ， 
FILER，G，S，N，L，R，C，T，Q [1.1] 
TRANSFER? ROOT.CODE，#4，ROOT.CODE。/ 

(后 一 个 ROOT'CODE 可 用 字符 “ $” 代 替 ， 表 示 与 


前 者 相同 ) 

INSERT DESTINATION DISK (将 CECF2， 盘 

TYPE (SPACE》 TO CONTINUE 较 ”从 驱动 器 中 取出 

CECF? :ROOT.CODE 并 插入 CECF1， 

- ->CECF1 : ROOT.CODE 盘 后 散 入 空格 键 ， 
则 将 CECF 2 : 
ROOT CODE 
转 到 CECF1: 
盘 中 ) 


Q (用户 在 文件 管理 控制 下 输入 文件 管理 子 命 令 Q 退 
出 并 返回 到 UCSD 命 令 级 ) 
2 .连接 P 代 码 文件 
到 此 已 作 好 了 连接 P 代 码 文件 的 准备 工作 。 下 面 是 连接 
的 过 程 ， 
L (用 户 在 系统 命令 级 输入 连接 命令 L， 系 统 读 入 连 
接 程序 SYSTEM:.LINKER 到 内 存 并 执行 ) 
LINKING… (连接 程序 输出 信息 ) 
APPLE PASCAL LINKER [1.1] 
HOST FILE?。?， ROOT (要 求 输入 P 代 码 主 文件 名 ) 
OPENING ROOT.CODE 
LIB FILE? * </ (回答 “*” 则 代表 FORTRAN 库 
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文件 ) 
OPENING * SYSTEM.LIBRARY 
LIB FILE?， 2/ (可 输入 其 它 库 文件 名 ， 最 多 8 个 ， 
没有 则 直接 散 </ ) 

MAP FILE? (输入 映 象 文件 名 ， 不 需 要 则 敲 -/ ) 
READING MAINSEGX 
READING NONAME (〈 读 入 用 户 P 代 码 文件 中 的 
程序 ) 
READING RTUNIT ( 读 入 库 中 运行 子 程序 ) 
OUTPUT FILE? ROOT (输入 可 执行 文件 名 ) 
LINKING NONAM #7 了 
LINKING RTUNIT #8 
LINKING MAINSEGX#1 

这 就 将 P 代 码 文件 连接 成 了 一 个 可 供 执行 的 代码 文件 
ROOT.CODE， 并 将 其 存储 在 连接 盘 CECF1 : 上 。 

在 连接 程序 的 过 程 中 读 入 了 3 个 程序 块 ， 

#1 号 MAINSEGX， 这 个 文件 中 含有 用 于 管理 所 有 其 
它 段 、 定 义 有 名 公共 块 、 初 始 化 运行 时 的 系统 代码 。 

#7 号 NONAME 为 用 户 的 P 代 码 文 件 中 的 程序 名 。 

#8 号 RTUNIT 为 FORTRAN 程 序 库 中 的 运行 子 程序 。 


5.35.5 执行 一 个 用 户 程序 


一 个 由 FORTRAN77 源 程序 最 后 生成 的 代码 文件 ， 必 须 
由 UCSD PASCAL 操作 系统 命令 X 将 连接 好 的 代码 文件 装 
入 内 存 运行 。 当 敲 入 命令 X 后 ， 则 屏幕 显示 提示 信 息 ， 
EXECUTE WHAT FILE? ROOT 

当 输 入 文件 名 ROOT 'CODE 并 散 二 后 就 开始 执行 ， 并 
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显示 程序 输出 的 结果 ， 
ENTER A，B，C=? 
呈 一 2.0 呈 10 .0 二 一 5 .0./ 


A= 王 B= C 一 
号 二 2 .0 一 一 一 10 .0 王 一 一 呈 5。0 
X1 一 又 2 一 
一 "56351 一 4.43649 
习题 三 
1. 简 略 说 明 在 UCSD 操 作 系统 下 FORTRAN 程 序 的 执 行 过程 。 
2 .编程 序 ， 
X2 一 2xX 十 1 一 0 
并 上 机 计算 输出 x 的 值 。 
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第 四 章 “控制 语句 及 分 支 程序 


从 前 面 的 示例 中 可 以 看 到 ， 一 个 FORTRAN 程 序 总 是 
从 主 程序 的 第 一 个 可 拟 行 语句 开始 按 语 名 出现 的 先后 次 序 往 
下 执行 的 。 但 是 ， 有 时 需要 改变 程序 执行 的 顺序 ， 例 如 ,要 
跳 过 某 一 部 分 语句 ， 或 重复 执行 某 些 语句 ， 或 根据 条 件 选 择 
执行 某 些 语句 。 本 章 将 介绍 这 些 控制 语句 以 及 分 支 程 序 的 纺 
写 方法 。 


4.1 转移 语句 


转移 控制 语句 ， 主 要 用 于 改变 程序 的 执行 顺序 ， 是 实现 
分 支 程序 设计 不 可 和 缺少 的 一 类 控制 语句 。 转 移 控制 语 名 分 
为 : 无 条 件 转移 、 计 算 转 移 和 赋 标 号 转移 。 

1 .无条件 转 移 语句 

格式 ，GOTO 《〈 标 号 、 

作用 ,无条件 转 移 到 指定 标号 所 标识 的 语句 去 执行 。 
其 中 标号 是 此 语句 所 在 的 程序 单位 内 的 一 个 可 执行 语句 的 标 
号 。 
无 条 件 转移 语句 的 使 用 比较 简单 。 如 果 需 要 转向 某 个 语 
句 去 执行 ， 只 需 在 该 语句 前 添上 语句 标号 ， 再 在 该 程序 单位 
内 适当 的 地 方 写 上 无 条 件 转移 语句 GOTO( 标 号 ) 即 可 。 

.2 .计算 转移 语句 

无 条 件 转移 语句 只 能 转移 唯一 的 一 个 标号 而 毫 无 选择 的 
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余地 。 为 能 满足 多 分 支 的 处 理 ， 再 介绍 计算 转移 语句 。 
格式 ， GOTO ( 工 ,， 和 Ln ) 让 ] 
作用 ,根据 [的 值 ， 可 以 转 到 相应 的 Li 去 执行 。 
这 里 I 可 以 是 一 个 已 赋值 的 整 型 变量 或 一 个 整 型 算术 表 
达 式 〈 式 中 变量 必须 是 已 赋值 的 ) o 工 ii 也 2 3 0 ) 
为 可 执行 语句 的 标号 ， 它 们 与 计算 GOTO 语 句 在 同一 程序 单 
位 内 。 同 一 个 标号 可 在 标号 表 中 出 现 多 次 ， 的 值 指出 要 转 
移 的 语句 标号 在 标号 表 中 的 位 置 序号 。 
注意 ,如果 I<1 或 I 这 n， 则 顺序 往 下 执行 。 
2 当 0 生 x<1 时 
X2 一 1 当 1 委 xz<2 时 
fx) 一 | x2 一 2x 十 1 当 2 和 x<3 时 
X2 十 4x 一 17 当 3 生 x<4 时 
函数 f(x) 有 四 个 计算 分 支 ， 每 个 分 支 的 自 变量 x 的 变 化 
区 间 都 是 1。 我 们 用 I 来 控制 使 之 能 够 转移 到 相应 的 分 支 ， 每 
个 分 支 给 出 一 个 语句 标号 。FORTRAN 程 序 如 下 ， 
INTEGER 工 
10 WRITE(#， (1X INPUTEASRGUMENT X=23 人 ) 
READ (#，F4.2)7) X 
T=X+L 
GDTQ 20330403 50) 工 ， 
WRITE 1X XXXQO DR X>=4 1) 
GTO 4 
20 FF 二 X 兴 X 
GQTO 100 
3 F=XxX-lL。D 
6DTG 410o0 
号 避 F==XxX-2ZXX+ilO 
GDTQ too 
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SO 所 =X 闪 X 十 才 闪 X 一 LO 

100 NRITE(Cx， (1X，X=  F4.29 
1 F= ”Fl1Co7) 》 XIyF “ 
下 内 DD 


如 果 输 入 数据 分 别 为 0.5. 1.3、2 .6、35 和 6 时 ， 则 程 
序 运 行 的 结果 如 下 ， 

INPUT ARGUMENT X=-? 

0.5./ 

X 一 一 .50 一 IF 一 一 一 一 一 。 250 

INPUT ARGUMENT x=? 

1.3./ 

x 一 1.30 F 王 .690( 以 下 略 ) 

当 输 入 变量 x 的 值 不 符合 要 求 时 ， 则 再 次 要 求 输入 自 变 
量 x 的 值 ， 否 则 程序 将 处 于 等 待 状 态 。 

3 . 赋 标 号 请 名 

赋 标 号 语句 是 将 可 执行 语句 或 格式 (FORMAT ) 语句 
的 标号 值 赋 给 一 个 整 型 变量 。 

格式 : ASSIGN 〈 标 号 》 TO 〈 变 量 》 

作用 :将 语句 标号 赋 给 一 个 整 型 变量 。 
其 中 , 标号 是 一 个 格式 语句 的 标号 或 可 执行 语句 的 标号 。 变 
量 必须 是 一 个 整 型 变量 。 

执行 赋 标 号 语 名 ASSIGN 的 实际 效果 是 将 可 执行 语句 
标号 值 或 格式 语句 标号 值 赋 给 整 型 变量 ， 被 赋 标 号 值 的 整 型 
变量 可 以 用 于 赋值 GOTO 语 句 中 ， 也 可 以 作为 格式 标 识 符 
出 现在 输入 输出 的 语句 中 。 被 赋 的 语句 标号 必须 是 与 ASS- 
IGN 语 名 在 同一 程序 单位 中 的 可 执行 语句 的 标号 或 格式 语 
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多 的 标号 。 如 ， 
PROGRAM ASSIG1 
ASSIGN 100 TO I 


AS9IGN 1000 TO 开 
100 FORMAT (1x，…) 


1000 “J=J+1 
WRITE ( 闪 ，[T) 
END 
这 就 是 把 标号 100，1000 分 别 赋 给 了 束 型 变 景 IT 和 开 ， 而 
WRITE 语句 中 就 用 到 了 
注意 ， 赋 标号 语句 ASSIGN 是 将 可 执行 语句 或 格式 
(FORMAT ) 语句 的 标号 值 赋 给 整 型 变量 的 唯一 方法 。 
4. 赋 值 转移 语句 
〈1 ) 赋值 转移 语句 的 简单 形式 为 ， 
GOTO [ 
其 中 ， 了 为 已 赋 语 句 标号 值 的 整 型 变量 。 
从 语句 形式 上 看 ， 赋 值 转移 语句 的 简单 形式 相当 于 无 条 
件 转移 语句 。 
在 执行 赋值 SOTO 语 句 之 前 ，I 必 须 由 本 程序 单位 内 的 
赋 标 号 语句 ASSIGN 赋 值 ， 拟 行 赋值 GOTO 语 句 时 ， 则 将 
控制 转 到 以 [的 值 为 标号 的 可 执行 语句 去 执行 。 
〈《2 ) 赋值 转移 语句 的 一 般 形 式 
赋值 转移 语句 的 一 般 形式 是 ， 
GOTO LI (LO L， …， Lan ) 
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其 中 ;了 为 已 赋 可 执行 语句 标号 的 整 型 变量 。 

Li(i=1，2，…，a ) 为 与 赋值 GOTO 语句 在 同一 程 
序 单位 内 的 可 执行 语句 的 语句 标号 ， 标 号 表 中 可 以 有 相同 的 
语句 标号 。 

在 执行 赋值 GOTO 语 句 时 ，I 的 值 必须 由 赋 标号 语句 赋 
值 ， 其 值 所 标识 的 可 执行 语句 与 赋值 GOTO 语句 在 同一 程 
序 单位 内 ， 且 I 的 值 必须 在 标号 表 中 。 阁 在 标号 表 中 找 不 到 
[的 值 ， 则 产生 运行 错误 。 赋 值 GOTO 语 名 不 能 转 入 DO、 
IF、ELSEIF 和 ELSE 块 内 。 

例 2 用 ASSIGN 语 句 和 赋值 GOTO 语句 编写 求 Y、2Z 
函数 值 的 程序 ， 其 中 Y、2Z 为 X 的 函数 ， 它 们 的 关系 如 下 : 


(XT1)7， x 当 一 5 魏 又 <0 时 
Z 一 


的 人 


1 
Y 一 [二 开 当 0 委 X<5 时 


(X- 上 4) 1， | 人 当 5<X<10 时 


编写 这 个 程序 需要 进行 条 件 判 断 ， 找 X 所 处 的 区 间 。 由 
于 X 的 区 间 是 等 长 的 ， 因 此 可 用 ASSIGN 和 算术 GOTO 语 
名 实现。 程序 如 下 ， 


SSIGN 45 TO 
ASSIGN 4o0 TD LI 
5 愉 世 从 站 (< (FOOD )》 X 
T=(X+ 喇 。D) 75.D+1 oO 
GOTD (toy2oy3oO) 工 
其 FTTEE (其 “7XS 呈 口 RR X2TC 它 RROR 1 
GDTOD 三 
了 亿 ASSIGN 1 TO 扩 
GOT 口 上 
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安 总 ASSTIGN 200 TO 民 
全 OTD 苇 

避 ASSTGN OO TO KR 

如 品 GOTO Ky (100， 要 届 昌 日 口 )， 

1oo YY (X+1T 名) 兴 兴 
ZL/A(X+teo) 
GOTOQ LI 

200 Ya (X+aa。) 闪 并 可 
Z=1。QO/A(X+ 只 。 癌 ) # 共 人 
GOTO LI 

SO Ys(X+ 人 全。 加 ) 共 共 人 
221 OA (X 寺 全) 闪闪 六 

400 WRITE《LXyOD) XyYZ 

扣 口 FORMAT (1X ,2HX= ,上 4。 人 ,2X， 2HY=， 
1FILO432Xe2HZ= FTO。 旨 ， 

END 


这 个 程序 综合 地 应 用 了 计算 GOTO、 赋 标号 语句 ASs- 
IGN、 赋 值 GOTO 语 句 。 

第 一 、 二 两 个 赋 标 号 语句 是 将 赋值 GOTO 语 句 和 输出 
语句 WRITE 的 语句 标号 分 别 赋 给 整 型 变量 L 和 LI， 为 简单 
赋值 GOTO 语 句 的 整 型 变量 赋 初 值 。 

计算 GOTO 语 名 的 三 个 分 支 主要 为 赋值 GOTO 玉 ， 
(100，200，300 ) 语句 提供 计算 函数 值 Y、2Z 的 入 口 。 通 过 
GOTO 开 ，(100，200，300 ) 语句 的 执行 转移 到 相应 的 
分 支 函数 进行 计算 ， 从 而 得 到 函数 值 Y 和 2Z。 

最 后 由 输出 语句 WRITE 在 屏幕 上 按 指 定格 式 显示 出 结 
果 。 

如 果 输 入 的 自 变量 值 不 在 要 求 的 区 间 内 ， 则 显示 错误 提 
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示 信息 ， 
X< -5 OR X>=10 ERRORI 
并 处 于 等 待 状态 。 此 时 ， 可 继续 答 入 X 的 值 * 如 ， 输 入 数据 
为 ， 
一 3.</ 以 下 为 输出 结果 ) 
一 只 一 3 一 一 《天 一 一 一 一 4;0000 一 一 2 二 -一 (一 


5.0000000 


4.2 IF 语 名 


在 实际 应 用 中 ， 除 了 转移 以 外 ， 还 经 常用 到 条 件 来 进行 
判断 ， 以 确定 执行 的 路 径 。 这 就 要 用 到 IF 语句 。 


4.2.1 算术 IF 语句 


格式 ，IF ( (算术 哨 达 式 ) ) 工 ， 工 ， 工 ， 
作用 ,根据 算术 表达 式 的 值 转 到 相应 的 语句 标号 去 执 
行 。 
其 中 ,算术 表达 式 为 整 、 实 型 算术 表达 式 ，- 式 中 的 变量 必须 
预先 赋值 。 
Li、Ls、 工 3: 均 为 可 执行 语句 的 语句 标号 并 与 算术 IF 语 
名 在 同一 个 程序 单位 内 。 
算术 IF 语句 的 执行 规则 是 ， 
<0， 则 转向 Ers 
若 算术 表达 式 的 什 1 则 转向 L，。 
)， >， 出 转向 L。。 
我 们 来 狸 下 面 的 例子 ， 
例 3 编写 计算 函数 
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民 当 0 委 X<10 时 。 
Y= |/ 2X2: 一 10X 十 0.5， 当 10 入 X<20 时 。 
6X 十 1， 当 20 扫 X<30 时 。 
的 程序 。 
所 给 函数 有 三 个 分 支 ， 且 属于 三 个 不 同 的 变化 区 间 。 我 
们 用 算术 IF 语句 来 编写 这 个 程序 “实现 分 支 函数 的 选择 。 源 
程序 如 下 ， 


REAL X,Y 
10 READ <， 《F 昌 5)) X 
TF(X) 11，1241 
41 GOTQ 42 
1 Y=8.0 
SO0TQ 与 0 
1 IF (X~10。.0) 12，22，23 
22 Y= 2 。 吕 关 X# 关 2 一 1 口 。 吕 关 X 十 昌 。 三 
6G0TO 50 
23 ITF(X-20:0) 22432433 
3 Y=6.OXX+1。O0 
GOTO 50 
33 IF(X-30.0) 3242)42 
50 WRITE(% 1O0) XY 
SO0TO 140 
42 WRITE (#， (ARGUMENT ERRDOR 1 ) 
100 FORMAT 1X，'X= Fl044X CEFCX)=F10。4) 


王 ND 
运行 过 程 如 下 ， 

7.24586./ (输入 数据 ) 

又 =7.2459 一 一 一 一 F(X) 王 一 一 一 一 8.0000 〈 输出 数据 ) 

一 50.639./ (输入 数据 ) 

ARGUMENT ERRORI (输出 错误 信息 ) 
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4.2.2 逻辑 IF 语句 


逻辑 IF 语句 是 一 种 逻辑 判断 较 强 的 分 支 程 序 设 计 的 . 语 
句 。 要 用 好 逻辑 IF 语句 ， 就 必须 了 解构 成 逻辑 条 件 的 关系 运 
算 、 示 辑 常数 、 逻 辑 表 达 式 、 罗 辑 变量 以 及 逻辑 运算 等 。 

1 .逻辑 表达 式 

罗 辑 表达 式 是 构成 逻辑 判别 条 件 的 重要 组 成 部 分 ， 它 产 
生 一 个 逻辑 数据 类 型 的 值 。 

逻辑 表达 式 最 简单 的 形式 是 ， 

逻辑 常数 。 
逻辑 变量 。 
逻辑 函数 。 
关系 表达 式 。 

了 以 上 的 简单 巡 辑 表达 式 可 以 通过 逻辑 运算 符 以 及 圆 括号 
组 合成 更 为 复杂 的 逻辑 表达 式 。 

(1 ) 逻辑 常数 

逻辑 常数 只 有 两 个 值 ， 即 “ 真 ” 值 用 .TRU 五 表 示 ， 
“ 假 ” 值 用 .FALSE. 表 示 ， 它 们 分 别 占用 两 个 连续 字 节 的 
存储 单元 。 在 内 存 中 表示 -TRUE. 时 ， 除 最 末 一 位 为 1 以 
外 ， 其 余 15 位 全 为 零 ，.FALSE.16 位 均 为 零 。 凡 是 满足 逻 
辑 条件 者 ， 其 值 为 ,TRUE 下 .， 否 则 为 .FALSE.。 

( 2 ) 逻辑 变量 

在 FORTRAN 语 言 中 , 轴 辑 常数 .TRUE. 或 ,FALSE， 
可 以 赋 给 一 个 变量 ， 这 个 变量 的 数据 类 型 不 能 是 整 、 实 型 变 
量 ， 而 只 能 是 胃 辑 型 变量 ， 称 为 逻辑 变量 。 它 用 逻辑 说 明 语 
句 定义 。 

格式 LOGICAL 《变量 表 》 
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其 中 变量 表 是 一 系列 的 变量 名 ， 若 有 多 个 变量 名 ， 则 彼此 之 
间 用 逗号 “，” 隔 开 。 如 ， 
LOGICAL L:，L:AXB 

逻辑 变量 属于 局 部 变量 ， 即 只 能 在 定义 它 的 程序 单位 中 
引用 。 

”者 变量 名 没有 在 LOGICAE 说明 语句 中 出 现 ， 则 不 能 作 
为 逻辑 变量 引用 即 不 是 逻辑 变量 。 

除 用 LOGICAL 语 句 明确 说 明 膛 辑 变量 外 ， 还 可 以 用 隐 

含 说 肌 语 名 定义 隐 含 遇 辑 数据 类 型 。 如 ， 
IMPLICIT LOGICAL (A-D ) 

这 说 明 凡 是 用 字母 A、B、C、D 开 头 的 变量 名 均 为 罗 辑 
变量 。 

〈《 3 ) 关系 表达 式 

关系 表达 式 用 来 比较 两 个 算术 表达 式 或 两 个 字符 表达 式 
的 值 ， 求 得 的 值 是 一 个 逻辑 值 。 用 两 个 算术 表达 式 来 进行 比 
较 的 关系 表达 式 称 为 算术 关系 表达 式 。 其 一 般 形 式 是 : 

《算术 表达 式 ) 关 系 运 算 符 双 算 术 表 达 式 》 
甚 中: 算术 表达 式 可 以 是 整 、 实 型 常数 、 变 量 以 及 由 此 组 合 
而 成 的 算术 表达 式 。 

此 外 ， 还 有 字符 关系 表达 式 ， 形 式 为 ， 

《字符 表达 式 关 系 运 算 符 兴 字 符 霄 达 式 》 
其 中 : 字符 表达 式 可 以 是 字符 常 狐 或 字符 变 最 。 

这 两 类 关系 表达 式 都 可 以 产生 逻辑 真 或 仍 值 。 即 当 指 定 
的 关系 (条 件 广 成 立时 ， 则 其 值 为 真 ， 否 则 为 假 。 

对 于 字符 关系 表达 式 ， 比 较 的 是 字符 表达 式 中 的 值 ( 即 
字符 在 ASCT 码 中 排列 上 顺 序 的 位 置 ， 在 前 的 字符 小 于 在 后 
的 字符 。 若 两 端 字符 表达 式 信 的 长 度 不 同 ， 则 如 同 用 空 客 在 
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其 后 边 补充 ， 使 它们 的 长 记 相 同 。 


关系 运算 符 共有 六 种 ， 

" 工 工 , 小 于 “ 工 卫 . 小 于 或 等 于 
`“EQ. 等 于 “NE. 不 等 于 
.GT 大 于 .GE 大 于 或 等 于 


注意 : 在 书写 关系 运算 符 时 ， 字 母 两 端 必须 带 上 小 圆 点 ， 
如 :LT.， 否 则 出 错 ， 关 系 运 算 符 没 有 先后 运算 次 序 之 分 。 
看 下 面 的 关系 表达 式 ， 

A 二 X.GE.B 二 C 若 A 十 X>B 二 C， 则 关系 表达 式 恒 
为 真 .TRUE， 

开 .`EQ. 开 十 1 民 王 氏 十 1， 显 然 不 成 立 ， 关 系 表达 式 

的 值 为 假 .FALSL 

“ABC' .EQ…XYZ' 显然 不 等 ， 其 值 为 假 'FALSE. 

(4 ) 逻辑 运算 符 

示 辑 运算 符 是 构成 复杂 的 轴 辑 表达 式 不 可 缺少 的 运算 
符 ， 它 可 将 简单 的 邮 辑 表达 式 ( 即 ， 迟 辑 常数 、 逻 辑 变量 、 
关系 表达 式 等 ) 连接 起 来 ， 进 行 逻辑 判断 ， 并 产生 逻辑 值 
(':TRUE .或 'FALSE. ) 。 届 辑 运算 符 有 ， 

'NOT,，  ” 轴 辑 非 ( 反 ) 最 高 级 

“AND'， 届 辑 与 ( 乘 ) 1 

.OR， 逻辑 或 (加 ) 最 低级 

注意 ， 逻辑 运算 符 的 两 端 必须 有 一 个 圆 点 。 ,AND. 和 
“OR ,运算 符 是 二 目 运算 符 ， :NOT .为 一 目 运 算 符 。 

“NOT ' 为 逻辑 非 (或 称 逻 辑 反 ) ， 其 含义 是 对 远 辑 值 
的 否定 ， 真 值 的 逻 辑 非 为 假 ， 假 值 的 逻辑 非 为 真 。 

.AND .为 逮 辑 与 ( 或 称 逻 辑 乘 ) ， 运 算 规 则 是 ， 当 逻 
辑 运算 符 '.AND ' 两 端的 逻辑 表达 式 的 值 均 为 真 .TRUE .时 ， 


。 61 。 


则 逻辑 乘 的 结果 为 真 .TRUE..。 否 则 结果 为 假 值 .FALSE..。 

'OR .为 逻辑 或 ( 即 逻 辑 加 ) ， 运 算 规 则 是 : 当 运 算 符 
两 端的 逻辑 表达 式 的 值 均 为 假 时 ， 结 果 为 假 ， 其 余 为 真 。 

在 比较 复杂 的 逻辑 表达 式 中 ， 逻 辑 运算 符 应 按 ':NDT -…、 
:AND.、:OR .的 优先 级 依次 进行 运算 ， 

同 算术 表达 式 一 样 ， 圆 括号 可 改变 逻辑 表达 式 的 运算 顺 
序 。 即 从 最 内 层 圆 括号 开始 ， 逐 渐 向 外 扩展 ， 直 到 最 外 层 为 
止 ， 圆 括号 内 的 运算 仍 按 其 优先 级 别 进行 ，, 同 级 运算 则 从 左 
向 右 进 行 。 如 果 表 达 式 中 有 算术 、 关 系 和 届 辑 三 种 运算 ， 其 
优先 级 确定 为 ， 算术 一 关系 一 逻辑 

2 .逻辑 变量 的 赋值 方法 及 输出 

(1 ) 则 辑 几 了 语句 
”逻辑 赋值 语句 的 作用 是 将 迎 辑 常数 或 罗 辑 表达 式 的 值 赋 
给 逻辑 变量 。 

格式 : 《逻辑 变量 =( 逻 辑 表达 式 ) 

作用 : 将 逻辑 表达 式 的 值 送 到 逻辑 变量 中 。 

(2 ) 用 READ 语 句 对 逻辑 变量 赋值 

用 READ 对 四 辑 变量 赋值 时 要 看 输入 格式 rLw，w 表 示 
字符 个 数 ，t 为 重复 因子 。 

将 Lw 格 式 用 于 逻辑 常数 真 或 假 的 输入 时 ， 可 按 下 列 形 
式 书写 : 

LOGICAL LOGIC1，LOGIC2 
READ(<，100) LOGICI，LOGIC2 
100 “ FORMAT (2L8 ) 

输入 数据 为 ， 

十 二 一 一 一 一 一 T 一 一 一 一 一 一 一 FE (T 代 表 真 ,下 代表 假 ) 
则 变量 1L.OGIC1= .TRUE.，LOGiIC2=.FALSE， 
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输入 数据 也 可 以 写成 ， 
一 一 TRUE 一 FALSE. 

注意 : 工 和 F 之 前 必须 有 适当 个 数 的 空格 ， 而 TRUE 和 
FALSE 都 必须 用 圆 点 括 起 来 。 

《3 ) 用 DATA 语 句 对 逻辑 变量 赋值 

我 们 看 下 面 的 示例 ，， 

LOGICAL LAB，LAC，L1，L2 

DATA LAB，L1l，1LAC，L2/2Xx :TRUE.，2%。 
FALSE./ 

通过 数据 语句 DATA 可 将 两 个 'TRUE: 值 分 别 赋 给 
工 AB 和 L1， 将 两 个 FALSE. 值 赋 给 LAC 和 L2。 

《4) 逻辑 变量 的 输出 

如 果 需 要 ， 也 可 以 将 逻辑 变量 的 值 输出 。 如 ， 

WRITE(:#x，100)LOG1，LOG2，LOG3 
100 FORMAT (1X，3L7) 
, 则 输出 数据 为 


SS 昌 六 RE 
L7 L7 1L7 

3 .逻辑 IF 语句 
格式; IF (逻辑 表达 式 》 ) st 
其 中 ， st 为 一 个 除 DO、IF、ELSEIF、ELSE、ENDIF、 
END 或 其 它 膛 辑 IF 语句 以 外 的 任何 可 执行 语句 。 

有 还 辑 IF 语句 是 一 个 可 执行 语句 ， 它 的 执行 过 程 是 ， 

(1 ) 首先 计算 逻辑 表达 式 的 值 ， 

(2 ) 若 逻 辑 表达 式 的 值 为 真 , 则 立即 执行 该 语句 中 的 可 
执行 语句 st， 然 后 继续 执行 IF 语句 的 后 继 语 句 。 如 果 列 出 的 
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语句 为 转移 语句 ， 则 转 到 指定 的 可 执行 语句 继续 执行 。 

(3 ) 若 逻 辑 表 达 式 的 值 为 假 ， 则 直接 执行 IF 的 后 继 语 
句 ， 这 时 的 逻辑 IE 语句 相当 于 一 个 空 语 句 。 

例 4 设 某 班 进 行 期 末 考 试 ， 请 统计 每 个 学 生 和 全 班 的 平 
均 成 绩 。 

我 们 先 画 出 框图 ”如 图 4.1 所 示 。 


图 4.1 学 生成 绩 统 计 框 图 


其 中 各 变量 代表 的 意思 是 ， 
NT 为 整 型 变量 ， 学 生 人 数 。 
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NGC 为 整 型 变量 ， 该 生成 绩 门 数 。 

N 为 整 型 变量 ， 学 号 。 当 学 号 为 0 时 ， 表 示 结 束 。 

A1 为 实 型 变量 ， 一 个 学 生 的 总 成 绩 ， 乳 后 存放 该 生 的 
平均 成 绩 。 

X 为 实 型 变量 ,一 个 学 生 的 一 门 功 课 的 成 绩 。 当 多 <10-8 
时 ， 则 结束 一 人 的 输入 并 求 和 与 平均 成 绩 。 

源 程 序 为 ， 


REAL 全 1，X 
INTEGER NT;,NCN 
NT= 吕 
从 1 和 站 
1 READR (#， (TI4)) N 
TFIN.EGQ.O) GOTO_ it 
NC= 口 - 
从 = 站 4 
NTs=NT+1L 
20 良 EAD(X<， (FS LTL)  ) X 
TIF(X.LT。1iE- 呈 》 GQTO 50 
NC=NC+1L 
从 = 从 十 X 
GOTD 20 
SO 名 =A/REAL (NC) 
全 1 = 全 1 十 全 
WRITE(X9 LOo》 NA 
GOTO 40 
11909 Alt=At/REALNT》 
WRITE(# 200) NTG1 
100 FORMAT1IX NOQO= TS = FFO6.2) 
200 FORMAT 1X NT= :TI5 Ai= yiF6.2) 
END 


在 编写 程序 时 ， 要 处 理 好 罗 辑 IF 语句 中 的 执行 语句 st 与 
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其 后 继 语 名 之 间 的 关系 ， 否 则 将 得 不 到 正 位 的 计算 结果 。 


4.3 : 停 语 -名 


停 语句 包括 暂停 语句 和 停止 语句 ， 它 们 均 属 于 控制 型 的 
可 执行 语句 。 在 程序 中 适当 的 地 方 设 置 暂停 或 停止 语句 ， 使 
程序 暂停 或 中 途 停止 ， 有 利于 程序 的 调试 。 

1. 暂 停 语句 

在 程序 中 设置 暂停 语句 的 目的 是 为 了 解 或 检查 程序 的 执 
行情 况 ， 并 根据 输出 的 信息 决定 下 一 步 应 采取 的 措施 。 在 竹 
序 的 调试 阶段 往往 是 必要 的 。 

格式 : PAUSE [an] 

作用 ,暂停 程序 的 执行 。 

其 中 : 待 选项 n 可 以 是 一 个 字符 常量 ， 也 可 以 是 不 超 过 5 位 
的 无 符号 整数 。 

PAUSE 语 句 是 一 个 可 执行 语句 ， 当 程序 执行 到 该 语句 
时 ， 立 即 处 于 等 待 状态 ， 并 在 屏幕 上 显示 na 的 值 ( 数字 或 字 
符 串 ) ， 或 系统 所 给 定 的 提示 信息 。 当 涡 入 回 车 键 “</ 
时 ， 系 统 又 继续 运行 。 

2. 停 止 语句 

格式 : SIOP [nj] 

作用 : 停止 程序 的 运行 。 

这 里 的 n 与 暂停 语句 的 意义 相同 。 

当 程 序 执行 到 STOP 语 名 后 ， 则 显示 出 给 定 的 数字 或 字 
符 串 。 若 没有 给 出 提示 参数 ， 则 系统 输出 所 规定 的 信息 。 

当 运行 的 程序 被 停止 以 后 ， 则 不 能 诅 继 续 运 行 。 若 需要 
的 话 ， 则 只 能 重新 执行 该 程序 。 
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4.4 判定 结构 程序 


判定 结构 由 IF…THEN、ELSE、ELSEIF 和 ENDIF 
组 成 ， 它 有 三 种 判定 结构 ， 由 这 些 判 定 结构 可 以 组 成 判定 结 
构 程序 。 
1 .简单 判定 结构 
简单 判定 结构 由 IFE…THEN 语 名 开始 ， 以 ENDIEF 语 名 
结束 ， 其 间 至 少 嵌 入 一 个 可 执行 的 语句 。 其 形式 为 ， 
IF (表达 式 ) ) THEN 
〈 可 执行 语句 序列 》 
NDIEF 
其 中 ,表达 式 为 一 个 逻辑 表达 式 。 
简单 判定 结构 的 执行 过 程 如 下 ， 
(1 ) 计算 逻辑 表达 式 的 值 ; 
(2 ) 若 逻 辑 表达 式 的 值 为 真 ， 则 执行 指定 的 可 执行 语 
旬 序 列 。 再 执行 ENDIEF 的 后 继 语 句 。 
(3 ) 若 轴 辑 表达 式 的 值 为 假 ， 则 跳 过 IF 和 ENDIEF 之 间 
的 可 执行 语句 ， 直 接 转 到 ENDIF 的 后 继 语句 去 执行 。 
例 5 ” 设 有 数据 ai，a*，as，…an， 找 出 其 中 的 最 大 数 
及 其 序号 。 试 编写 该 程序 。 
程序 的 变量 说 明 ， 
N 为 整 型 变量 ， 表示 数据 个 数 。 
AMAX 为 实 型 变量 ， 存 放 最 大 数 。 
功 整 型 变量 ， 和 输入 数据 计数 。 
J 为 整 型 变量 ， 存 放 最 大 数 序号 。 
A 为 实 型 变量 ， 存 放 当 前 输入 的 数据 。 
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程序 框图 如 图 4.2。 
源 程序 为 : 


T=1 
了 := 
各 MAX=O。O 
READ (#， (TI4)》) N 
40 READ (#，'(F7.2) ) 全 
IF (AMAX.LT。.A) THEN 
GMAX=A 
= 了 
ENDIF 
IF(T.LT.N) THEN 
TI=TI+1 
60TO 40 
ENDIF 
WRITE (%s too) 可 ,GMAX 
100 ”FORMATCLX = TI4， AMAX= FlO。2) 
STOP 
END 


2. 基 本 判定 结构 
基本 判定 结构 由 IF…THEN、ELSE 和 了 ENDIEF 等 语句 
组 成 ， 其 一 般 形式 是 : 
IF ( (表达 式 ) ) THEN 
《可 执行 语句 序列 1》 
ELSE 
《可 执行 语句 序列 2》 
ENDIF 
其 中 的 表达 式 是 一 个 逻辑 表达 式 。 其 执行 过 程 如 下 ， 
(1 ) 计算 尿 辑 表达 式 的 值 。 
(2 ) 若 逻辑 表达 式 的 值 为 真 ， 则 执行 可 执行 语句 序列 
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1， 然 后 转 到 下 NDIF 的 
后 继 语句 去 执行 。 

(3 ) 若 表达 式 的 
值 为 假 ， 则 执行 忆 LSE 
语句 之 后 的 可 执行 语句 
序列 2， 然 后 再 转 到 
ENDIE 的 后 继 语 名 去 
执行 。 

注意 ， 可 执行 语句 
序列 是 一 个 封闭 的 语句 
块 ， 可 以 从 块 内 转 到 块 
外 ， 而 不 能 从 块 外 转 到 
块 内 。 

- 例 6 用 判定 结构 程 
序 求 100 以 内 的 自然 数 
之 和 。 

基本 判定 部 分 的 程 
序 如 下 ， 


10 一 开 十 [ 


IF(I'EQ.100 ) 


图 4.2 求 最 大 数 程序 拒 图 


THEN 


WRITE ( 关 ，100) 开 ，I 


也 LSE 
TI 一 [十 1 
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GOTO 10 
了 ENDIEF 
100 ”FORMAT(IX," 1 十 2 十 … 十 100 王 ' ,TI6, 一 一 [= ， 
I4 ) 
END 

3. 多 路 判定 结构 

多 路 判定 结构 由 IF…THEN 语 句 开始 ,以 ENDIF 结束 ， 
中 间 骨 入 ELSEIEF 语 句 组 成 。 它 的 形式 是 ， 

IF (〈 表 达 式 1》 ) THEN 
《可 执行 语句 序列 1)》 
ELSEIF ((〈 表 达 式 2》) THEN 
《可 执行 语句 序列 2》 
LSE 
《可 执行 语句 序列 3》 
ENDIF 
其 中 :表达 式 均 为 遇 辑 表达 式 。 执 行 过 程 如 下 ， 

(1 ) 计算 表达 式 1 的 值 。 

(2 ) 当 表 达 式 1 的 值 为 真 时 ， 则 执行 语句 序列 1， 然 后 
控制 转 到 与 该 IF 语句 相对 应 的 ENDIEF 语 句 的 后 继 语 句 去 执 
行 。 

(3 ) 当 表达 式 1 的 值 为 假 时 ， 则 跳 过 语句 序列 1 而 转 到 
ELSEIEF 语 句 作 进一步 判别 ， 

计算 表达 式 2 的 值 。 若 其 值 为 真 ， 则 执行 ELSEIEF 语 名 
后 的 语句 序列 2， 然 后 控制 转移 到 ENDIEF 语 名 的 后 继 语 名 去 
执行 。 

若 表达 式 2 的 值 为 假 ， 则 控制 转移 到 也 LSE 之 后 的 语句 
序列 3 继续 执行 ， 直 到 ENDIEF 语 名 结束。 
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多 路 判定 结构 的 执行 过 程 如 图 4。3 所 示 ; 


0 


语句 序列 2 


图 4.3 多 路 判定 结构 流程 


例 7 计算 函数 
| 1 当 Xy0 时 
了 一 0 当 X 王 0 时 
一 1 当 X< 0 时 
的 值 ， 用 多 路 判定 结构 编写 出 程序 。 
源 程 序 如 下 ， 
INTEGER X,Y 


READ (xy 1LOD) 人 XX 
JIFIX。GT。D) THEN 
Y=1 
EL.SE 
IF(X.LT。D) THEN ， 
Y= 一 1 
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基 妆 和 下 宪 《 共 人间 间 ) X9Y 
200 EDORMATILX SSHX= 2Xy 2HY=，IS) 
100 FORMATI4》 

END 


4. 判 定 结构 的 嵌 套 
除了 上 述 的 基本 判定 结构 以 外 ， 我 们 还 可 以 将 基本 判定 
结构 进行 嵌 套 以 形成 更 为 复杂 的 判定 结构 。 其 一 般 形式 是 : 


IF ( (表达 式 1) ) THEN 
IF (表达 式 2》) THEN 
IF(〈 (表达 式 3) ) THEN 
IF ( (表达 式 4 ) THEN 


1 2 3 4 ELSE 
| ENDIF 
FLSE 
_ 瑟 NDIF 
ELSE 
ENDIR 
ELSE 
ENDIF 


其 中 的 表达 式 均 为 逻辑 表达 式 。 上 列 形式 示 出 了 四 层 基 
本 判定 结构 的 蔡 套 形式 ， 每 一 层 都 有 一 个 IF 语句 和 与 之 匹配 
的 ENDIEF 语 句 ， 而 不 管 其 间 的 语句 个 数 的 多 少 。 第 4 层 作为 
第 3 层 的 语句 序列 被 内 套 在 第 3 层 中 ， 第 3 层 作 为 第 2 层 的 语句 
序列 被 第 2 层 嵌 套 ， 其 余 类 推 。 

当然 ， 也 可 以 在 ELSE 之 后 岁 套 判定 结构 ， 使 之 成 
为 ， 
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IF ( (表达 式 1 ) THEN 
《语句 序列 1》 
巨 LS 台 
IF ( (表达 式 2》 ) THEN 
《语句 序列 2》 
ELSEIR( (表达 式 3) ) THEN 
《语句 序列 3》 
ELSEIF (( 表 达 式 4)》 ) THEN 
《语句 序列 4》 
ELSE 
《语句 序列 5》 
ENDIF 
EIDIF 

其 中 , 各 表达 式 均 为 罗 辑 表达 式 ， 语句 序列 为 一 个 或 多 
个 可 执行 语 铝 。 

正 依 使 用 判定 结构 可 给 FORTRAN 程 序 设 计 带 来 方便 ， 
使 程序 的 结构 清晰 ， 易 读 。 反 之 ， 则 会 产生 不 可 预料 的 错 
误 。 因 此 ， 使 用 判定 结构 来 编写 程序 时 必须 注意 ， 

(1 ) 判定 结构 的 第 一 个 语句 必须 是 IFE…THEN 语 句 ， 
闪 以 ENDIF 语 句 作为 该 结构 的 结束 语句 。 如 ， 

IF(X.LT,.1000.0 ) THEN 
ENDIF 

这 里 的 IFE…THEN 与 ENDIF 匹 配 。 

(2 ) 在 IF…THEN、ELSEIF 和 ELSE ”各 自 的 语句 
序列 内 的 控制 转移 语句 ， 可 在 本 语句 序列 内 实现 转移 ， 但 不 
能 转 到 IF…THEN、ELSEIF 和 ELSE 的 语句 序列 内 。 

总 之 ， 不 能 从 IF…THEN 语 名 序列 、ELSEFIE 语 名 序列 
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和 了 ELSE 语句 序列 之 外 将 夭 制 转 到 语句 序列 内 。 
(3 ) 在 各 种 判定 结构 中 的 ELSEIEF 语句 和 了 ELSE 语句 
均 不 允许 带 语 名 标号。 如 : 


IF (… )THEN 
20 ESE 搬 (…)THEN 
30 疝 张 

0 


在 结构 中 出 现 了 带 语句 标号 的 ELSEIF 和 ELSE 语 句 ， 
这 是 不 允许 的 。 

(4 ) 如 果 有 多 个 IF… 个 HEN、ELSE、ENDIF 炭 套 在 
一 起 ， 那 么 总 是 从 最 内 层 的 IF…THEN、ELSE、、END- 
IF 开始 构成 一 个 正确 的 判定 结构 ， 以 此 逐步 向 外 扩散 ， 参见 
例 8 的 源 程 序 。 

例 8“” 求 a，b，<c 三 个 实数 中 的 最 大 、 最 小 数 。 程 序 框图 
如 图 4.4。 

编写 的 源 程 序 如 下 ， 


REAL MAX ,MIN 
READ (#， (SF7。2) ) ABC 
IF(G.LT.B) THEN 
.IF(B.LT.C) THEN 
MAX=C 
_MIN=A 
ELSE 
MAX= 晶 
IF(G.LT。.C) THEN 
” MIN=A 
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图 4.4 求 最 大 最 小 数 程序 框图 


ELSE 
MIN=C 

三 NDIEF 

ENDIF 

EL.SE ， 

IF《 人 LT.C)THEN 
人 全 X= 亡 
MIN= 也 

ELSE 
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皇后 X= 合 
IF(B.LT.C) THEN 
MITN= 玉 
世上 SEE 
MIN=C 
区 二 从 安 
民 ENDIF 
已 交 世 了 工 户 
友 民 荆 下 诺 【《 基 二 人 当 》 MMX MTN 
于 总 给 疡 四 只 守 名 T 《区 丰 XXX 9 关 1 全 全， 
“MINE 全。 之 ) 


END 
习题 四 
太 G1 十 X) 当 0 福 X<2 时 
1. 编 写 求 Y= ， 1 十 sin((X 一 2)， 当 2<X<4 时 


Usin(X 一 2) 十 (X 一 1)2，” 当 4 宝 X<6 时 
的 值 的 程序 。 
2 .编写 一 个 FORTRAN 程 序 ， 求 


2 ww， 当 X21 时 。 


Y= | 又 十 2 
【一 2 一， 当 X<i 时 。 


3 .编写 一 个 FORTRAN 程 序 , 求 . 
1 1 十- 二 二 站 当 开 二 10s4 时 售 
站 当 二 <10”4 时 停止。 


4. 下 列 判定 结构 正确 吗 ? 为 什么 ? 
IF(A:GT:B7THEN 
人 A 一 X 十 了 
ELSEIF(A GT:C)THEN 
C=A 
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ELSEIF(B.GT.CJTHEN 
C=B 
ELSE 
C=X+Y 
ENDIF 
ENDIEF 


第 五 章 ”循环 程序 设计 


5.1 循环 程序 的 概念 


在 日 常生 活 中 ， 有 许多 事件 都 是 在 一 次 又 一 次 地 重复 
着 。 例 如 ， 在 一 年 中 有 春 、 夏 、 秋 、 冬 四 个 季节 ， 年 复 一 年 
不 断 地 重复 这 个 过 程 。 
在 科技 计算 中 ， 在 很 多 情况 下 都 可 以 构成 某 部 分 程序 的 
多 次 重复 执行 ， 以 获得 所 需要 的 结果 。 简 单 说 来 ， 这 种 重复 
过 程 就 叫做 循环 ， 用 这 种 方法 设计 的 程序 称 为 循环 程序 ， 又 
称 这 种 结构 为 循环 结构 。 我 们 来 看 看 下 面 的 例子 。 
例 1 计算 100 以 内 的 自然 数 的 和 。 其 程序 如 下 ， 
了 := 
上 一 心 


19 IF(I,LE。.1iLOoO) THEN 
慌 =K 二 了 


ENDIF 
10D FORMAT(1X，K= Il0 TIT=，T10) 
END 


执行 这 个 程序 ， 当 逻辑 表达 式 I'L 忆 100 的 值 为 真 时 ， 
则 执行 IFE…THEN 后 面 语句 序列 中 的 三 个 可 执行 语句 。 直 
到 I' 工 王 .100 的 值 为 假 ， 控 制 转移 到 ELSE 语 句 执行 并 输 出 
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计算 的 结果 后 ， 整 个 程序 的 运行 结束 。 显 然 ，IE 和 GOTO 
滞 句 之 间 形 成 了 循环 。 
如 果 将 上 述 程 序 改写 成 如 下 形式 ， 


T=1 
攻 = 
10 K=K+I 
TF(IT.EQ.1O0) THEN 
WEITE(# CTLX OK= TD， 


1 Ts ) 
ELSE 
IT=I+1| 
GOTO 1 
ENDTIF 
EN 


显然 ，IFE 和 GOTO 语 名 之 闻 也 形成 循环 。 

上 面 两 个 程序 都 是 用 基本 判定 结构 结合 无 条 件 转移 语句 
来 实现 程序 循环 的 。 而 这 两 个 程序 却 分 别 代表 了 两 类 循环 结 
构 。 一 类 称 为 “ 当 型 循环 ”， 即 当 给 定 的 条 件 成 立时 ， 则 执 
行 所 要 求 的 循环 ， 直 到 条 件 不 成 立时 为 止 。 另 一 类 称 为 “ 直 
到 型 循环 ”， 即 首先 进行 一 次 循环 ， 然 后 再 进行 条 件 判 断 ， 
以 傅 定 是 否 循环 。 若 条 件 不 成 立 ， 则 将 循环 控制 变量 累加 一 
个 步 长 ， 再 继续 进行 循环 。 在 条 件 成 立时 ， 则 终止 循环 。 

通过 对 例 中 两 个 程序 执行 过 程 的 分 析 ， 可 以 看 出 循环 程 
序 应 该 具备 以 下 一 些 特点 。 

(1 ) 循环 程序 中 必须 有 控制 循环 的 变量 ， 并 在 执行 循 
环 过 程 之 前 对 循环 变量 赋 初 值 。 

(2 ) 检测 循环 控制 条 件 ， 并 根据 条 件 进行 循环 处 理 。 

(3 ) 构成 循环 要 处 理 的 部 分 ， 称 为 循环 体 。 

〈《4) 循环 要 有 结束 之 时 。 
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5.2 循环 语句 


循环 程序 结构 的 实现 ， 单 用 条 件 判 定 及 控制 转移 语句 是 
不 够 的 ， 而 且 显 得 很 麻烦 。 检 测 语句 放 在 循环 语句 序列 的 前 
面 或 后 面 是 有 区 别 的， 而 且 选 择 的 测试 条 件 也 不 同 。 

为 了 使 循环 程序 结构 更 容易 编写 ， 在 FORTRAN 语 言 
中 设计 了 专门 的 循环 语 名 DO。 如 果 用 DO 循环 语句 来 改写 
前 面 的 例子 ， 则 程序 结构 就 更 为 清晰 了 。 

20 了 READ(se，7(I3) )N 
匡 一 1.0 
DO 10 I=1， N，! 
色 =1.REAL(I)VREAL(CI+1) 
下 王 熙 十 又 
10 CONTINUE. 
WRITE (ww，100)N，X，KEF 
GOTO 20 
100 FEORMAT (1!X，'N=/，15，!LUX= ，F10.6，/ 
FF 一 上 ，Fl14.6) 
ND 

源 程 序 中 的 第 三 个 语句 就 是 循环 语句 。 

1. 循 环 语句 的 格式 
格式 ， DO 工 人 ] I 一 el， es? (5 es] 

其 中 : DO 是 循环 语句 的 定义 符 ， 标 志 着 循环 语句 的 开始 。 

二 是 循环 终端 语句 的 标号 ， 它 位 于 DO 定义 符 之 后 循 环 
控制 变量 名 之 前 ， 但 它们 之 间 必 须 用 空格 隔 开 ， 而 标号 之 后 
也 可 以 用 逗号 隔 开 ， 否 则 认为 是 错误 的 。 语 句 标号 的 作用 就 
是 指明 DO 循环 的 范围 。 
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I 为 循环 控制 变量 在 该 FORTRAN 标 准 中 ; 它 必 须 
为 物 型 变量 。 

el，e* 和 es 均 为 履 型 算术 表达 式 ， 它 们 分 别 为 循环 初 
值 . 终 限 值 和 步 长 ( 湛 量 三。 其 中 es 为 待 选 项 ， 训 果 es 的 值 
是 1 且 为 更 型 常数 时 , 则 可 以 省 略 “，es” 顶 不 写 ， 和 否则 不 可 
省 略 。 

循环 变量 工 后 的 等 号 不 可 缺少 ， 它 与 算术 赋值 语句 的 意 
义 相同 。 即 对 循环 挤 制 变量 I 由 值 。 

2. 循 环 语句 的 执行 过 程 

一 个 出 循 环 衣 和 铝 DO 和 循环 语句 序列 以 及 终端 语句 所 组 
冻 药 循 环 结 煌 的 一 般 形式 为 ， 

DOT 工 J=ei， es，es 
《循环 体 ) 
工 《终端 语句 
其 中 ， 终 端 千 句 通常 是 循环 结构 中 的 最 未 一 个 可 执行 语句 。 
循环 语 避 的 执 答 过 程 如 下 ， 

(1 ) 首先 计算 禄 值 、 终 眼 值 和 步 长 表达 式 el、e， 和 es 
的 值 ， 将 这 些 值 分 别 保存 到 循环 控制 参数 Mi、M: 和 Ms 中 。 
如 果 步 长 表达 式 es 被 省 政 ， 则 认为 其 值 为 1， 即 循环 控制 参 
数 Ms 置 1， 这 里 es 的 值 不 能 为 零 。 

《2 ) 将 循环 初 值 赋 给 算 制 变量 I， 即 Ml 中 的 值 赋 给 整 
型 变量 工 。 

(3 ) 根据 循环 垣 制 参 数 Mi、M:z 和 Ms 的 值 ， 计 算 循环 
次 数 ;: 计算 公式 如 下 ， 

Tec=MAXOTUINT ((M;: 一 MT+NM5)AME 7) ，0) 

(4 ) 检测 循环 次 数 I 芭 值 : 

若 le 的 值 为 零 ， 则 不 执行 衢 环 范围 内 的 语句 ， 控 制 转移 
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到 该 循环 终端 语句 的 下 一 条 语句 去 执行 。 
若 循环 次 数 Ic 之 0， 则 执行 循环 范围 内 的 全 部 语句 〈 包 


括 终端 语句 ) 。 


(5 ) 在 循环 终端 语句 执行 之 后 ， 再 进行 下 询 操 作 ， 
循环 控制 变量 I 增 加 步 长 Ms ， 即 ， 


I 十 Ms 之 
循环 次 数 Ic 的 值 减 1， 即 ， 
Ic 一 1 之 Tc 


控制 转移 到 第 4 步 ， 继 续 执行 。 


整个 循环 的 执行 过 程 可 用 框图 表示 如 下 ， 


计算 环 循 初 、 终 , 步 长 ,建立 循 
环 控制 参数 M1, M2, M3 


计算 循环 次 数 T。 


图 5.1 循环 语句 的 执行 过 程 
f(x)= 一 (2X 十 3.5 ) X 十 0.7 
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以 上 的 计算 、 赋 值 
处 理 过 程 都 是 由 系统 、 
自动 进行 ， 不 需 人 工 干 
也 

例 2 设 X 的 值 为 

0.10， 0.12， 0。15， 
0.19， 求 函数 

f(x) 一 2x2 十 

3.5X 十 0。7 

的 值 ， 编 写 计算 fx) 的 
源 程 序 。 

根据 所 给 数据 X 的 
值 及 fx) 的 函数 关系 ， 
可 用 循环 语句 来 编写 这 
个 程序 在 编写 程序 前 ， 
可 将 代 x) 改 写成 ， 


编写 出 的 源 程 序 如 下 ， 
TNTEGER 工 
REAL FyX 
DO 10 TI=1y4 
WRITE(#， (TXTNPUT X=3)) 
READ ( 交 ;“《(FS。2))》 X 
= 《2。OXX 二 了。 司 ) #X+Ow7 
10 WRITE(# ioOo) IT,X，F 
100 ”FORMAT(C1X TIT= TIT22XX= 3 
1F5.2 FOX)= Fl1O。5) 
END 


执行 这 个 程序 时 ， 第 一 个 可 执行 语句 就 是 循环 语句 ， 按 
循环 语句 的 执行 过 程 ， 可 得 ， 

(1 ) 循环 控制 参数 MI1 王 1，M2=4，M3=1。 

〈《2 ) 循环 镀 制 变量 [的 初 值 为 1， 即 I=1。 

《3 ) 计算 循环 次 数 Ic=4， 即 

Ic=MAX0 ((4 一 1+1)/1，0 ) =4 

(4) 俭 测 循环 次 数 Ic 之 0， 则 执行 循环 体 ， 输 入 X 的 
值 ， 然 后 计算 的 值 并 输出 X、F 的 值 ， 直 到 Ic=0 时 退出 循 
环 


程序 的 运行 结果 如 下 ， 

INPUT X=，? 

一 0.10L/ 

TI 一 一 1 一 一 X 王 一 一 10 一 FF(X) = 一 一 1.07000 
(以 下 略 ) 

3. 对 循环 语句 的 跟 制 

FORTRNA 标 准 对 循环 语句 的 限制 有 : 

(3 ) 循环 控制 变量 必须 为 整 型 变量 。 初 值 、 终 限 值 和 
步 长 必须 为 整 型 表达 式 、 整 型 常数 或 整 型 变量 。 对 于 整 型 变 
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量 或 整 型 表达 式 中 的 变量 必须 在 语句 之 前 赋值 。 

(2 ) 循环 的 终端 语句 必须 是 一 个 可 执行 的 语句 。 但 它 
不 应 是 无 条 件 GOTO、 赋 值 GOTO、 算 术 IF .IF…THEN、 
ELSEIER、ELSE、ENDIE、RETURN、STOP、END 
或 DO 语句 。 如 果 终 端 语句 是 嗓 辑 IF 语句 时 ， 则 可 包括 罗 辑 
IF 语句 允许 的 任何 可 执行 语句 。 

(3 ) 循环 控制 变量 可 在 循环 体内 被 引用 ， 但 不 应 对 它 
再 赋值 ， 否 则 会 破坏 循环 。 同 样 ， 也 不 允许 改变 循环 初 值 、 
终 值 和 步 长 表达 式 的 值 ， 即 不 允许 对 表达 式 中 的 变量 再 次 定 
广 。 

(4 ) 在 循环 体 中 ， 可 用 控制 转移 语句 从 循环 体内 转 到 
循环 体外 ， 恒 不 允许 从 御 环 体外 转 到 循环 体内 。 

(5 ) 在 DO 语句 的 循环 体内 ， 如 果 出 现 判定 结构 语句 ， 
则 IF…THEN 与 ENDIF 所 构成 的 判定 结构 程序 应 全 部 包含 
在 循环 体内 。 如 ， 


DO 10 1I=1, N 
一 IF(X.LT.IE-3)THEN 


GOTO 20 
ELSE 
EF= 上 十 叉 
一 卫 NDIF 
110 CONTIN UE 
20 WRITE (ee ，100)N，X 
这 个 循环 结构 中 的 基本 判定 结构 程序 履 个 包含 在 循环 体 


肉 ， 这 是 正确 的 。 如 果 改 成 下 面 的 形式 ， 则 是 错 沁 的， 
9 84。 


六 一 po 10 TS N 


IF(X. LT IE-3)THEN -一 
GOTO 20 
gT SF 判定 结构 
-10 了 =F 十 X 
卫 NDIEF 


循环 体 的 终端 语句 在 ELSE 后 的 语句 序列 肉 ， 它 没有 将 
基本 判定 结构 的 全 部 语句 包含 在 循环 范围 内 ， 而 形成 循环 组 
构 与 判定 结构 相交 叉 的 形式 。 这 就 是 错误 所 在 。 

(6 ) 如 果 在 判定 结构 程序 的 IF 块 .ELSEIEF 块 或 ELSE 
块 中 包含 有 DO 语句 ， 则 由 DO 语句 所 构成 的 循环 结构 程序 
应 全 部 包含 在 IF 块 、ELSEIE 块 或 ELSE 块 中 。 

下 面 的 判定 结构 程序 是 正确 的 ， 

IF(X'.LT'0.0)THEN 


入 三 1 一 一 


:DO 10 I=l 2 (下 块 
10 N=N+1 


了 LSEIF (X.GT.:0.0)THEN 
N=0 
DO 100 J=1，100 
100 N=N+jJ 
卫 LSE 
DO 1000 玫 =10，1， 一 1 一 


了 ELSEIF 块 


卫 世 S 卫 块 
1000 N= 王 10 
ENDIF 
下 面 的 循环 和 判定 结构 程序 是 错误 的 ， 
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IF(I.EQ.J)THEN 


本 PO 99 开 J，J 十 | IF 块 
ELSEIF (X.GT.I+L)THEN 
一 99 M=M+1 ELSEIF 块 
ELSE 
M=M 十 2 ELSE 块 
“ENDIF 2 


这 个 循环 结构 的 DO 语句 包含 在 IF 块 中 ， 其 终端 语句 又 
包含 在 ELSEIEF 块 内 ， 导 致 跨 块 交叉 ， 这 是 不 允许 的 。 


5.3 继续 语句 


格式 ， CONTINUE 

继续 语句 CONTINUE 是 一 个 可 执行 语句 ， 它 的 执行 不 
产生 任何 动作 ， 被 称 为 空 语句 。CONTINUE 语 句 可 用 来 设 
置 一 个 语句 标号 ， 达 到 承上启下 的 目的 。 在 实际 使 用 中 ， 常 
常 将 CONTINUE 语 句 作为 循环 结构 的 终端 语句 ， 特 别 是 循 
环 结构 程序 的 终端 语句 为 控制 转移 语句 时 ， 可 在 其 后 加 上 一 
个 CONTINUE 语 名 并 作为 循环 的 终端 语句 。 这 样 可 以 避免 
控制 转移 发 生 在 终端 语句 处 。 另 外 ， 为 了 使 FORTRAN 程 
序 结构 清晰 、 易 读 ， 可 将 源 程 序 分 段 ， 也 可 用 CONTINUE 
语句 作为 分 段 的 标志 。 


5.4 循环 程序 的 和 衣 套 结构 


前 面 介绍 了 DO 语句 。 在 那里 我 们 只 局 限于 一 个 DO 语 
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句 的 情形 ， 这 样 构成 的 循环 结构 ， 称 为 简单 循环 程序 ， 也 
可 以 叫做 单 重 循环 结构 。 但 应 用 中 有 时 用 单 重 循环 极 不 方 
俩 ， 常 常 需要 用 到 多 重 循环 。 如 ， 


= 人 0 
SUM=0.0 
-DO 100 I=1 ，M 


一 100 CONTINUE 


SUM=SUM/M 
WRITE ( 。，999 ) J，SUM 
一 一 1000 CONTINU 尼 
1. 多 重 循环 程序 的 执行 过 程 


由 于 一 个 单 重 循环 结构 可 以 包含 在 另 一 单 重 循 环 结构 
之 内 ， 这 样 就 导致 多 重 循环 的 产生 ， 其 结构 如 下 ， 


DO 10 I=1，N 

一 -一 一 -一 -DO 20 ]=1，M 
0 

| CONTINUE 

20 CONTINUE 

10 CONTINUE 


这 是 一 个 三 重 循环 结构 的 形式 ， 它 们 分 别 都 有 自己 的 终 
端 语句 。 

多 重 循环 的 执行 过 程 ， 可 由 单 重 循环 的 执行 过 程 推 而 
广 之 。 以 下 列 程序 为 例 说明 多 重 循环 程序 的 执行 过 程 。 
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上 =0 
一 一 一 一 DO 10 I=1，10 
一 一 一 ”DO 20 J=1，5 
讽 汪 字 ] 内 循环 体 外 循环 体 
一 20 ”CONTINUE ] 
10_ CONTINUE 


(1 ) 首先 执行 外 循环 的 DO 语句 。 

建立 初 值 . 终 值 和 步 长 控制 参数 ,它们 分 别 为 1.10 和 1 ;将 
初 值 1 赋 给 循环 境 制 变量 1, 计算 出 循环 次 数 为 10。 测 试 循环 次 
数 ， 如 果 循 环 次 数 为 零 ， 则 退出 循环 ， 否 则 执行 该 循环 体 。 

(2 ) 在 执行 外 循环 体 时 ， 若 遇 到 内 循环 ， 则 建立 内 循 
环 初 值 、 终 值 和 步 长 控制 参数 分 别 为 1、5 和 1， 将 循环 初 值 1 
赋 给 循环 变量 J， 即 J 王 1， 计 算出 循环 次 数 为 5。 如 果 循 环 次 
数 为 零 ， 则 退出 内 循环 。 如 果 循 次 数 非 零 ， 则 执行 内 循环 体 
直到 结束 。 

(3 ) 执行 内 循环 5 次 后 退出 内 循环 ， 继 续 执 行 外 循环 直 
到 终端 语句 。 

(4) 将 外 循环 控制 变量 I 增 加 一 个 步 长 并 将 循环 次 数 减 


1。 
(5 ) 如 果 外 循环 次 数 不 等 于 零 ， 则 继续 执行 外 循 环 体 
并 再 次 进入 内 循环 。 即 转向 第 二 步 开 始 继续 执行 。 直 到 结束 
内 循环 。 
(6 ) 当 执行 外 循环 体 结束 后 ， 若 外 循环 的 次 数 不 为 零 ， 
则 继续 执行 。 直 到 外 循环 次 数 为 零 时 ， 则 整个 循环 结束 。 
这 里 的 外 循环 共 执 行 10 次 ， 每 当 执行 一 次 外 循环 体 ， 则 
内 循环 体 就 要 执行 5 次 。 因 而 ， 内 循环 体 总 共 执行 10 X5 一 50 
次 。 
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对 于 二 重 循环 的 执行 过 程 可 用 框图 ( 图 5.2 ) 来 表示 。 


建立 外 循环 控制 参数 
计算 外 循环 次 数 1w 


建立 内 循环 控制 参数 
计算 内 循环 次 数 I。 


执行 内 循环 体 
内 循环 结束 处 理 


处 理 剩余 部 分 


外 循环 结束 处 理 


图 5.2 二 重 循环 体 的 执行 过 程 


对 于 三 重 以 上 循环 结构 的 执行 过 程 与 二 重 循环 结 构 的 作 
法 基本 一 样 。 

2. 对 多 重 循环 的 限制 

(1 ) 内 循环 必须 攻 个 地 嵌 套 在 外 循环 之 内 ， 不 允许 交 
又 。 如 下 的 程序 结构 是 正 饥 的 ， 


DO 10 T=1，9 
DO 20 J=T，9 
WRITE (w*，，100)I，J， [Is*] 


20 CONTINUE 
WRITE(s，/(IX， LN) ) 
10 CONTINUE 
100 FORMAT (1X，I2，'/esvyV，[2，/= 一 /TI3) 
ND 


这 个 程序 为 二 重 循环 结构 ， 内 循环 结构 已 完全 媒 套 于 外 
循环 体内 。 而 下 列 循环 结构 是 不 正确 的 ， 


DO 10 ti 王 1，N 


DO 20 J=1，M ES 
内 
10 CONTINUE 本 
: 层 
20 CONTINUE 人 


( > ) 代 套 循环 的 循环 控制 变量 不 能 同名 ， 同 一 层次 的 
多 个 牡 环 结构 称 为 并 列 御 环 ) ， 其 循环 控制 变量 可 以 同 
名 。 下列 循 环 结构 是 正确 的 ， 
DO 0 Te 人 
一 一 一 一 DO 20 J=1, 5 人 
Re ; 拒 
一 -20 CONTINUE | 列 
人 ”DO 30 J=1 10 


[so CONTINUE 
一 -一 10 CONTINUE 

这 是 一 个 二 重 循环 结构 ， 外 循环 内 嵌入 了 两 个 循环 结 
必 ， 这 两 个 循环 是 并 列 循环 ， 用 了 同一 个 循环 控制 变量 。 内 
外 循环 控制 变量 是 不 同 的 。 而 ， 
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0 | 
-DO 200 j==-1，N 
一 一 一 一 一 DO 300 1=1，M 
| 内 ; 
一 300 CO TINUE 
一 一 一 200 CONTINTUE 
100 CONT1INUEE 


外 


是 不 允许 的 ， 从 循环 结构 来 看 它 是 正 侈 的 ， 但 是 外 层 循 环 控 
制 变 量 的 名 字 和 内 层 的 同名 ， 所 以 导致 错误 的 产生 。 

(3 ) 内 套 循环 可 共用 一 个 终端 语句 。 

在 嵌 套 循环 结构 中 ， 通 常 是 一 个 循环 结构 就 有 一 个 终端 
语句 。 如 果 有 几 个 终端 语句 都 是 同一 语句 并 连续 出 现时 ， 则 
可 将 它们 合并 ， 共 用 一 个 终端 语句 。 如 ， 

DO 10 工 =1，M 
DO 100 J=1，M 
DO 1000 开 =1，N 


1000 CONTINUE 
100 CONTINUE 
10 CONTINTU 
也 可 写成 ， 
DO 10 TI=1，M 人 
DO 10 J=1，M 人 | 一 
DO 民 三 1，N 内 层 
10 CONTINUE [ 


下 面 的 程序 结构 同样 是 允许 的 ， 
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DO 10 I=1，M 
DO 200 J=1，N 
DO ”200 长 王 1，N 


200 CONTINUE 由 


DO 10 J 一 1，N 
10 CONTINUE 
(4 ) 循环 的 控制 转移 


循环 的 控制 转移 与 判定 结构 的 控制 转移 一 样 ， 只 能 从 循 
环 体内 转移 到 循环 体外 ， 不 允许 从 循环 体外 转移 到 循 环 体 
内 。 
如 果 共 用 一 个 终端 语句 ， 则 可 从 艇 套 循 环 的 最 内 层 转 到 
该 终端 语句 ， 其 余 都 不 允许 转移 到 该 终端 语句 。 
下 面 再 举 一 个 利用 循环 结构 来 编写 程序 的 例子 。 
例 3 编写 一 个 程序 计算 乘积 : 
(7 一 xl1)(7 一 xz)(7 一 Xs)…(7 了 一 xn) 
其 中 ，a9 为 项 数 ， 计 算 结果 存 入 变量 P 并 输出 。 
编写 这 个 程序 要 输入 y 和 an 的 值 ， 每 循环 一 次 ， 则 输 入 
一 个 x 的 值 ， 求 y 一 x 的 差 并 与 P 中 的 值 相 乘 ， 可 用 算术 赋 值 
语句 p 一 p#(y 一 x) 来 实现 。 这 里 的 p 初 值 应 为 1.0。 源 程序 
如 下 ， 
户 ROGRAM 己 X 
REAL P,X,Y 
INTEGER N,T 
F=1.0 
READ (# ,50) NUY 
DOD 190 TI=1yN,2 


READ ( 关 ， (FS。2) ) X 
F=R#ttY-X) 


人 


1 所 属 CONTTINUEE 
NRITE (xy10) N,P 
区 丫 FORMAT (IT 芳 FS。2) 
1 FDRNMAT LEX N= TI4 FOX Y)= Fi14。6) 
END 
执行 这 个 程序 的 输入 数据 是 ， 
已 12557.65./ 
5.45./ 
2.37./ 
4.56./ 
8.92/ 
10.53./ 
6.38。/ 
输出 结果 为 ， 


直到 最 后 一 项 的 值 小 于 10"? 时 为 止 。 
2. 抽 查 某 班 N 个 学 生 期 终 考试 成 绩 ， 如 下 表 所 示 : 
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要 求 计 和 侍 每 个 人 的 平均 成 绩 ， 各 科 平 均 成 绩 及 总 平均 成 绩 。 
3. 和 用 和 迭代 公式 ， 
和 n+1l 二 Xn + 了 人 ( 二 -一 zx) 


计算 3/ 责 的 近似 值 ( 自 和 洗 初 值 Xo， 人 允许 误差 s，N 的 初 值 为 2 ， 终 信 
为 100， 步 长 为 1 ) 。 
4. 计 算 Z= -一 2 sin (x 十 a) 十 aln -zza 的 值 其 中 ， 


a 的 初 信 为 0.10， 终 限 值 为 0.30， 步 长 0.1; xx 的 初 值 为 1.0， 终 值 为 
2.0， 步 长 为 0.2。 
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第 六 章 数 组 


FORTRAN 程 序 设 计 中 ， 除 了 常用 的 零星 变量 和 数 所 
以 外 ， 还 要 用 到 大 量 的 有 序数 据 ， 这 可 以 用 数组 进行 处 理 。 


6.1 数组 的 概念 


1. 数 组 与 数组 元 素 

在 FORTRAN 语 言 中 ， 我 们 可 以 将 多 个 数据 组 织 起 来 ， 
按 一 定 的 顺序 存放 在 计算 机 的 内 存储 器 中 ， 并 为 这 些 数 据 给 
出 一 个 统一 的 名 字 ， 这 组 数据 就 称 之 为 数组 。 给 定 的 名 字 称 
为 数组 名 。 要 表示 这 批 数据 中 的 某 一 个 数据 ， 就 可 以 在 给 出 
数组 名 的 同时 ， 给 出 该 数据 在 数组 中 的 序号 。 如 有 一 张 学 生 
成 线 统计 表 ， 


| 学 号 | 政治 | 语文 | 数学 ， 英语 | 化 学 | 物理 | 平均 | 
| | 于 个 瑟 和 国企 古人 革 
| 2057 85 78 .5 | 95 .4 96 88 93 

| 2058 90 89 | 100 78.5 | 69 | 86 

| 2059 | 75 | ss | 67.8 | 95 78 84 

| 2060 95 67 85.4 80 90 98 

琴曲 2 的 ee 了 
人 


如 果 将 每 个 学 生 的 成 绩 都 用 数组 来 表示 ， 那 么 可 以 建成 
四 个 数组 。 第 一 个 数组 的 数据 表示 如 下 ， 
(85，78.5，95 .4，96，88，93 ) 
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现在 给 这 一 组 数 取 一 个 名 字 ， 如 Al1， 这 就 是 数组 名 。 要 表 
示 其 中 的 某 个 数据 ， 则 可 用 ， 

人 下 《7 全 7 5 
Al1(6)， 它 们 可 以 分 别 代表 85，78.5，95.4，96，88， 93 
六 个 数据 。 这 里 只 用 一 个 下 标 就 可 以 标识 一 个 数据 ， 因 而 将 
这 种 数组 称 为 一 维 数组 。 其 余 学 生 的 成 绩 也 可 以 用 同样 的 办 
法 处 理 。 

如 果 和 希望 将 四 人 的 成 绩 表 示 成 一 个 数组 ， 并 取 名 为 A， 
那么 可 用 A (I，J ) 来 表示 其 中 第 I 个 人 的 第 J 门 课程 的 成 绩 。 
如 : A(1，3 ) ， 表 示 第 一 个 人 的 第 3 门 课程 的 成 绩 ( 即 2057 
号 学 生 的 数学 成 绩 95.4 ) 。 由 于 确定 一 个 成 绩 需 要 两 个 下 标 
〈 行 、 列 ) ， 因而 这 种 数组 称 为 二 维 数组 。 

归纳 起 来 说 ， 凡 是 一 组 有 序 的 数据 都 可 以 用 数组 的 形式 
表示 出 来 。 

2 .数组 的 维 数 与 下 标 变量 

从 前 面 的 简单 介绍 中 已经 看 到 : 使 用 一 个 数组 元 素 时 ， 
必须 给 出 它 在 数组 中 的 顺序 号 ， 这 个 顺序 号 称 为 下 标 。 因 此 
又 称 数 组 元 素 为 下 标 变量 。 例 如 ，100 个 整数 可 以 表示 为 一 
个 数组 S， 它 共有 100 个 元 素 ， 即 S(1)，S(2)，S(3)， 
…，S(100)。 这 些 S(1)，S(2)，…， S(100) 分 别 
都 是 数组 S 的 下 标 变量 。 

若 令 I=90， 则 S(〈I 十 10 ) 即 表示 下 标 变 量 S(100 ) 。 
由 此 可 见 ， 下 标 变量 中 除了 用 整 型 常数 来 表示 元 素 的 序号 
外 ， 还 可 引用 整 型 表达 式 的 值 来 表示 元 素 的 序号 。 但 是 出 现 
在 该 表达 式 中 的 整 型 变量 必须 预先 赋值 ， 这 种 表达 式 称 为 下 
标 表达 式 。 

在 下 标 变量 中 出 现 的 下 标 表 达 式 的 个 数 称 为 数组 的 维 
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数 ， 如 S (2 ) 只 出 现 了 一 个 下 标 表达 式 ， 这 说 明 该 数 组 S 是 
一 个 一 维 数组 。 

在 下 标 变量 中 若 出 现 两 个 下 标 表达 式 ， 如 下 标 变量 A(1， 
2) 和 A(I，] ) ， 则 称 该 数组 为 二 维 数组 。 

FORTRAN 标 准 规定 数组 的 最 大 维 数 是 3， 也 就 是 说 ， 
在 下 标 变量 中 最 多 可 以 出 现 三 个 下 标 表达 式 。 如 果 超 过 三 个 
下 标 ， 则 认为 是 错误 的 。 

在 同一 个 程序 单位 中 ， 同 一 个 数组 的 下 标 变量 的 下 标 表 
达 式 的 个 数 必须 相同 。 如 下 标 变量 A(1，2 ) 和 A(M 十 1,J)， 
是 正确 的 ， 而 A( 3 ) 是 错误 的 。 

下 标 变量 可 以 出 现在 ， 

(1 ) 表达 式 中 ， 被 引用 之 前 必须 预先 赋值 。 

( 2 ) 赋值 语句 的 左 端 ， 该 下 标 变量 则 被 重新 赋值 

( 3 ) DATA 语 句 中 并 通过 DATA 语 句 赋 给 初 值 

(4 ) 输入 输出 语句 中 ， 实 现 数 组 元 素 的 输入 输出 。 

数值 名 也 可 以 出 现在 DATA 语 句 中 并 通过 DATA 语句 
对 数组 的 每 一 个 元 素 赋 值 ， 也 可 以 在 输入 输出 语句 中 作为 输 
入 输出 对 象 ， 以 输入 或 输出 该 数组 的 每 一 个 元 素 值 。 


6.2 数组 的 定义 
数组 可 通过 两 种 方式 进行 定义 。 


6.2.1 数组 说 明 语 句 


数组 的 定义 方式 之 一 ， 即 DIMENSION 语 句 。DIME- 
NSION 语 句 又 被 称 为 维 语句 ， 它 用 于 指明 数组 名 和 数组 元 
素 的 最 大 数目 ， 并 分 配 相应 的 内 存 空 间 。 
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格式 ，DIMENSION 〈 数 组 名 》( di[，ds 区 ，ds] ) ， 


作用 ， 定 义 一 个 或 多 个 数组 。 

其 中 : 数组 名 就 是 为 有 序数 的 全 体 取 的 名 字 ; di:、d:、 
ds 为 维 说 明 符 ， 维 说 明 符 最 多 只 允许 出 现 3 个 。di (i=1， 
2，3 ) 的 值 确定 了 相应 元 束 序 号 变化 的 最 大 范 围 ， 称 为 上 
限 ， 其 下 限 总 是 1。 

常用 的 维 说 明 符 di (i=1，2，3 ) ， 可 以 是 无 符号 型 常 
数 ， 整 型 变量 和 “ 关 ”号 。 若 维 说 明 符 是 一 个 整 型 常数 ， 它 
指明 数组 在 该 维 上 元 素 的 最 大 值 ， 若 各 维 都 是 整 型 常数 ， 则 
该 数组 的 容量 是 不 变 的 。 若 维 说 明 符 是 整 型 变量 ， 那 么 ， 这 
个 数组 说 明 符 只 能 出 现在 子 程序 中 ， 其 中 表示 维 说 明 符 的 
整 型 变量 的 值 必 须 在 进入 该 子 程序 之 前 对 其 赋 初 值 。 这 样 的 
数组 被 称 为 可 调 数组 ， 即 其 大 小 随 整 型 变量 值 的 改变 而 改 
变 。 车 维 说 明 符 是 一 个 “ 关 ” 号 ， 则 该 数组 是 假定 尺寸 数 
组 ， 其 维 界 不 确定 。 参 见 下 面 的 例子 : 

DIMENSION A(4)，B(3，3) 

DIMENSION C(4，3)，D(2，10) 

这 里 定义 了 A、B、C、D 四 个 数组 。A 是 一 维 数 组 ， 它 
共有 四 个 元 素 ，B 是 二 维 数组 ， 其 第 一 维 上 界 是 3， 第 二 维 上 
界 也 是 3，B 数 组 共有 9% 个 元 素 。 其 余 的 数组 C 和 了 D 与 此 类 似 。 

使 用 DIMENSION 语 名 来 定义 数组 时 应 注意 下 列 几 点 : 

(1 ) 在 一 个 程序 单位 中 可 使 用 多 个 DIMENSION 语 名 
来 定义 多 个 数组 ， 但 数组 名 不 能 相同 。 

(2 ) 用 DIMENSION 语 句 定义 的 数组 ， 其 类 型 遵循 隐 
含 规则 。 也 就 是 说 ， 在 DIMENSION 语 句 中 定义 的 数 组 ,只 
有 整 型 和 实 型 两 种 类 型 。 
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(3 ) 在 主 程序 单位 中 ，DIMENSION 语 句 定义 的 数 组 
的 维 说 明 符 只 能 是 整 型 常数 ， 称 这 种 形式 的 数组 为 常 界 数 
组 。 可 调 维 数组 只 能 在 子 程序 中 定义 。 如 ， 

PROGRAM MAXT 

DIMENSION A(10，10)，B(20)，C(50) 

DIMFNSION D(2，3)，MI(10) 
是 正人 的 ， 而 ， 

PROGRAM MAB 

DIMENSION IM(K，101) 
是 不 正确 的 ， 因 为 它 是 主 程序 单位 的 说 明 部 分 。 在 数组 说 明 
符 中 ， 第 一 维 上 界 为 整 型 变量 K， 因 而 IM 是 -- 个 可 调 数组 ， 
它 只 能 在 子 程序 中 出 现 。 

(4 ) 数组 的 大 小 

数组 的 大 小 等 于 数组 中 元 素 的 个 数 , 即 各 维 上 限 的 乘积 。 


6.2.2 用 类 型 语 名 定义 数组 


在 上 节 中 用 到 的 DIMENSION 语 句 ， 除 了 用 于 数组 的 定 
义 、 维 说 明 以 及 维 上 界 之 外 ， 还 提供 了 数组 的 类 型 。 用 DI- 
MENSION 语 句 只 能 定义 整 型 或 实 型 数组 。 因 此 ， 对 数组 的 
应 用 带 来 了 一 定 的 局 限 。 

为 了 更 广泛 地 引用 数组 这 个 有 效 的 数据 处 理 手 段 ，FO- 
RTRAN 语 言 还 允许 用 类 型 语句 来 定义 数组 。 具 体 作 法 是 ， 

(1 ) 将 数组 名 当 作 变 量 在 类 型 语句 中 定义 其 类 型 ， 然 
后 再 用 DIMENSION 语 名 定义 为 数组 。 如 ， 

INTEGER A，B，IN，AB 

DIMENSION A(10)，B(2，2)，IN(2，2，2) 
这 里 定义 了 四 个 整 型 变量 A，B、IN 和 AB， 而 在 维 语句 中 又 
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对 A、B 和 IN 进行 了 再 定义 ， 并 给 出 了 每 一 维 的 上 界 和 维 数 ， 
其 中 A 为 10 个 元 素 的 一 维 整 型 数组 ，B 为 四 个 元 素 的 二 维 站 
型 数组 ，IN 为 8 个 元 素 的 三 维 束 型 数组 。 

(2 ) 将 数组 说 明 符 直接 置 于 类 型 语句 中 ， 使 之 变 得 更 
简洁 。 如 ， 

REAL IA(10)，B(2，2) 

INTEGER A(24，24) 

CHARACTER CHARI(10 ) #3 

LOGICAL L(2，3) 
这 里 说 明了 四 种 类 型 的 数组 。IA 和 了 B 为 实 型 数组 ， 分 别 为 一 
维 10 个 元 素 和 二 维 4 个 元 束 ， 数 组 A 为 具有 24X24 个 元 素 的 
二 维 整 型 数组 ,上 为 具有 6 个 元 素 的 二 维 逻 辑 型 数组 ;CHAR1 
为 一 维 字 符 型 数组 ， 共 有 10 个 元 素 ， 每 个 数组 元 素 可 存 放 3 
个 字符 。 


6.3 数组 的 存储 与 输入 输出 


6.5.1 数组 元 素 的 存储 顺序 


一 个 数组 通过 维 语句 或 类 型 语句 来 定义 。 数 组 一 旦 被 定 
义 ， 它 就 能 够 提供 名 字 、 类 型 、 维 数 、 维 的 大 小 以 及 数组 的 
元 素 个 数 等 信息 。 但 是 ， 它 的 全 部 元 素 是 如 何 存放 的 呢 ， 即 
内 存储 单元 是 如 何 分 配 的 呢 ? 

FORTRAN77 语 言 慰 准 规定 ， 数 组 中 的 数组 元 素 以 “ 按 
列 排列 ”的 顺序 连续 分 配 存储 单元 。 

对 于 一 维 数组 , 则 按 下 标的 值 增加 的 顺序 分 配 存储 单元 。 

对 于 二 维 数组 ， 数 组 元 素 中 最 左边 的 下 标 最 先 变化 ， 然 


“1L00“ 


后 第 二 个 下 标 再 变化 …。 即 数组 元 素 的 第 二 个 下 标 从 下 界 1 

到 上 界 ( 从 小 到 大 ) 每 固定 一 次 ， 第 一 个 下 标 都 从 下 界 变化 到 

上 界 。 直 到 第 一 维和 第 二 维 的 下 标 都 变化 到 上 界 时 为 止 . 如 ， 
DIMENSION A(4 4) 

定义 了 一 个 二 维 的 实 型 数组 A， 第 一 、 二 维 大 小 均 为 4 ， 它 

的 数组 元 素 共 16 个 。 在 内 存储 器 中 的 分 配 如 下 ; 


A(1,3) A(C1L,4) 
A(2,3) 14 | A(2,4) 
和 (3737 15 | A(3,4) 


A(2,1) 
A(3,1) 
A(C4,1) 


心 Co to 一 


A(C4,3) 16 | A(4,4) 


表格 中 下 标 变量 之 前 的 数字 1、2、…15、16 为 该 变量 在 
内 存单 元 中 的 顺序 号 。 由 顺序 号 可 以 看 出 下 标 值 的 变化 情 
况 。 三 维 数 组 的 下 标 变化 情况 与 此 类 似 。 

实际 上 ， 数 组 中 的 每 一 个 元 素 都 要 分 配 一 个 顺序 号 ， 如 
何 根据 数组 元 素 的 下 标 来 计算 元 素 的 位 置 顺序 号 呢 ? 计算 公 
式 为 ， 

一 维 数组 元 素 序 号 = (Li 一 1 ) 十 1 

二 维 数组 元 素 序 号 = (上 :一 1) xd 十 (L: 一 1) 十 ! 

三 维 数组 元 素 序 号 = ( 直 s: 一 1)#di#xd: 十 (L: 一 1)X#d 
的 
其 中 , Li、L。、Ls 分 别 为 数组 元 素 第 一 、 二 、 三 维 下 标 表 
达 式 之 值 。 

di、ds*、ds 分 别 为 第 一 、 二 、 三 维 的 维 上 界 。 
例如 ， REAL M(2，2，3 ) 语句 定义 了 一 个 三 维 实 型 数组 
M。 数 组 元 素 M(2，1，3 ) 的 顺序 号 为 10， 即 : M (2，1， 
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3 ) 的 分 配 序号 = 〈( 3 一 1 ) 关 2 兴 2 十 (1 一 1 ) 2 十 (2 一 1 十 1 
一 8 十 1 十 1=10 


6.3.2 数组 的 输入 输出 


数组 定义 以 后 ， 数 组 的 每 一 个 元 素 可 作为 下 标 变 量 而 被 
引用 。 它 可 以 出 现在 表达 式 中 作为 已 赋值 的 运算 对 象 ， 也 可 
以 作为 赋值 语句 的 左 端 变量 ， 为 了 得 到 数组 和 数组 元 未 的 结 
果 ， 还 可 以 出 现在 输入 输出 语句 中 ， 以 便 输入 或 输出 数组 的 
值 。 

1. 数 组 元 素 的 输入 与 输出 

数组 元 素 的 输入 或 输出 与 普通 变量 的 输入 或 给 出 是 一 样 
而 整个 数组 元 素 的 输入 或 输出 通常 与 循环 语句 联 用 。 
例 1 数组 元 素 的 输入 。 


的 


REAL A45j22， 三，2)》 
DG 20 JJ=i， 
DO 20 TI= 5 
READ (#;，(F6.4)) ATI) 
29 CONTINUE 
DQ 10 JJ=1 2 
SUM=O.o 
DG 40 IT=1 5 
SUM=SUM+A(I ,IJ) 
NRITEX# 1OoO) (TI) 


4 CONTINUE 
WRITE(#， (SUM= IF10.4)) SUM 
1 CONTINUE 
iD FORMATFSB。4)》 
END 


当 执行 这 个 程序 时 ， 通 过 循环 语句 将 输入 数据 赋 给 数组 
A 的 各 个 元 束 ， 这 里 输入 数据 的 顺序 与 A 数 组 在 内 存储 单 元 
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中 的 存放 顺序 要 一 致 。 
2. 用 数组 名 作 输 入 输出 对 象 
除了 输入 或 输出 数组 元 素 以 外 ， 也 可 以 直接 用 数组 名 来 
进行 输入 或 输出 。 如 ， 
REAL DME(3，2 ) 
INTEGER AME(3，3 ) 
READ ( 关 ，' (6F4.1，/，91I3 ) ” ) DME，AME 


执行 该 程序 时 ， 若 敲 入 数据 : 
1.11.2 呈 1.3 呈 1.4 呈 1.5 呈 1.6 
c10 忆 20 一 3040 玉 506070 80 呈 90-/ 
就 把 这 些 数 据 按 内 存 分 配 的 顺序 依次 赋 给 了 各 个 数组 元 素 。 
当然 ， 也 可 以 一 列 一 列 地 输入 数据 。 
例 2 ”数组 元 素 的 输入 顺序 
REAL DME(3，2 ) 
INTEGER AME (3, 3) 
READ(e。。，100 ) DME 
100 FORMAT (3F4.1) 
READ (ww，200 ) AME 
200 FORMAT(3I4) 
执行 前 一 个 读 语句 时 ， 先 输入 数组 的 第 一 列 ， 然 后 再 输入 第 
二 列 ， 即 : 
1.1 呈 1.221.32/ 
呈 1.4r21.5 一 1.6</ 
执行 后 一 读 语 句 时 的 情形 与 此 类 似 ， 
呈 c210- 一 20 玉 730 / 
呈 呈 40 呈 50 一 一 602/ 
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70D80cr3902/ 
也 可 以 用 数组 名 直接 作为 输出 对 象 ， 与 输入 时 类 似 。 如 果 整 
型 数 的 元 素 分 别 为 1，2，…，9, 那 么 下 列 程序 ， 
INTEGER AB(3,， 3) 


WRITE ( 。，1000 ) AB 
1000 FORMAT (1IX，3I5 ) 


执行 后 输出 数据 是 ， 


TD 2 3 
4 5 6 
7 8 9 
3 . 隐 循 环 输 入 输出 


在 输入 输出 语句 的 输入 输出 表 中 使 用 数组 元 素 或 数组 
名 ， 对 数组 元 素 的 赋值 或 输出 来 说 ， 已 经 够 方便 了 。 而 FO- 
RTRAN 又 提供 了 一 种 隐 循 环 的 输入 输出 方式 。 
我 们 先 来 分 析 下 列 循环 程序 的 执行 情况 ， 
DO 10 I=1，10 
WRITE(s*,，“ (I2)7)A(CI) 
10 CONTINTUE 
假设 数组 A 是 一 个 已 赋值 的 一 维 整 型 数组 ， 共 有 10 个 数 
组 元 素 ， 其 元 素 值 分 别 为 1，2，…，10。 执 行 循环 语句 时 ， 
将 会 把 A (1)，A(2 )，…，A,10 ) 10 个 数据 顺序 输出 。 
若 引 入 了 风 循 环形 式 ， 则 上 述 循环 程序 将 变 得 更 为 简单 
WRITE(s。，100)(A(L)，[I=1，10) 
100 FORMAT(IX，10:4) 
执行 叉 RITE 语 句 时 ， 将 I 赋 初 值 为 1， 计 算出 路 循环 的 
循环 次 数 为 10， 检 测 次 数 是 否 为 零 ， 若 为 零 ， 则 结 束 隐 循 
环 ， 和 否则 开始 循环 ， 输 出 第 1 个 元 素 的 值 。 然 后 I 增 加 步 长 1， 
。104，。 


再 执行 隐 和 人 循环 ， 和 给 出 第 二 个 数组 元 素 的 值 ， 直 到 数组 元 素 痊 
完 为 止 。 
(1) 隐 循 环 的 一 般 形 式 
格式 ，(JOLIST，TI=el，es[，es]) 
其 中 ，IOLIST 为 输入 输出 对 象 表 ， 了 为 中 循环 控 制 变量 ， 


el，es 和 es 分 别 为 隐 循 求 的 初 值 、 终 限 值 和 步 长 ， 循 环 次 数 
由 e; 、ey 和 es 决定 。 


实际 上 ， 隐 循环 与 DO 语句 的 循环 方式 完全 相同 ， 其 要 
求 以 及 执行 过 程 可 参考 DO 语句 的 说 明 。 

隐 循 环 主要 用 于 输入 箱 出 语句 。 

例 3” 隐 循环 的 用 法 。 


FROGRAM FX 
DIMENSION X(4) ,At3S) FF(4) 
READ (#,， (4FS5.2)) (XIT) TI=1 4) 
READ (#， (3F4。41) LAI) TI=1 3 可) 
DO 10 TI=1，4 
FLI) = 有 (1) 
DO 20 d=2， 王 
FT)=F(T)X%X(T)+A(3》 
29 CONTINUE 
10 CONTINUE 
WRITE《#4SG) (TXT) TIF(T) TIT=1 4)》 
36 FORMAT(i1X，:X( TI2 )= FS5.2， 
1 FI2,，，)=…,F7。4) 
END 


执行 这 个 程序 时 ， 输 入 数据 由 两 个 READ 语 名 承担， 其 
输入 对 象 均 为 隐 循 环 。 

当 执 行 到 输出 语句 WRITER 时 ， 则 四 个 函数 已 被 计算 完 
毕 ， 在 输出 对 象 表 中 也 用 到 了 隐 循 环 ， 它 重复 执行 了 四 次 ， 
即 和 输出 四 个 数据 。 
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〈2 ) 隐 循 环 的 媒 套 

隐 循 环 也 和 DO 循环 语句 一 样 可 以 从 内 层 向 外 层 扩 展 ， 
但 不 存在 任何 形式 的 控制 转移 。 隐 循环 的 艇 套 最 适合 于 多 维 
数组 元 素 的 输入 或 输出 。 

设 二 维 数组 A 在 内 存 的 值 为 ， 


二 让 0 
2 
3.0 2.0 1.0 四 
- 泛 才 0 


由 下 列 程序 可 输出 4x 4 列 的 方形 图 。 
WRITE(#%， (4F4.0)7) 和 4) 
一 两 项 奋 示 一 
外 隐 循 环 
实际 上 ， 这 个 输出 语句 可 认为 是 由 语句 ， 
DO 10 I=1， 4 
10 WRITE(<，'(4F4.0)/) (A(L J)，J= 
1，4) 
改写 而 成 的 。 
(3 ) 对 变量 的 隐 循 环 
除了 对 数组 元 素 的 输入 或 输出 可 以 用 隐 循 环 以 外 ， 普 通 
变量 的 输出 也 可 以 用 隐 循 环 。 
如 果 要 求 重 复 变 量 X、Y 和 2Z 的 值 ， 则 可 用 下 列 隐 御 环 
方式 来 实现 ， 
WRITE(#<*，10) (X， Y，Z，I=1，2 ) 
10 FORMAT (1X，6F6.2) 
如 果 X=10.5，Y=7.82，2Z 王 20.75， 则 输出 数据 为 ， 
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号 10.50 一 二 7.82 cr220.75 一 10.50 号 二 7.82 一 20.75 
一 一 一 一 一 RN 


义 YY Z 久 Y Z 

利用 对 数组 的 输入 方法 ， 可 以 对 数组 赋 初 值 。 如 果 对 数 
组 赋 同 一 个 初 值 ( 如 : 零 ) ， 那 么 用 DATA 语 句 最 为 简单 。 
如 ， 


INTEGER A(6,，6) 
DATA A/36w 0/ 

又 如 ， 
REAL AIL(10)，IB(5)，N 
CHARACTER CH(4，5) 2 
DATA N，Al，IB/1.3，10w1.5，5e 100.789/ 
DATA CH/20e /一 A// 

这 里 的 DATA 语 句 将 1 .3 赋 给 N， 一 维 实 型 数组 Al 的 值 
均 为 1.5， 而 IB 的 各 元 素 值 则 为 100.789:，C 了 为 字符 型 数组 ， 
共有 20 个 元 素 ， 每 个 元 素 可 存放 2 个 字符 ，DATA 语 名 中 将 
字符 串 ' 一 A“ 赋 给 C 了 的 全 部 元 素 。 


6.4 数组 的 应 用 实例 


例 4 统计 学 生成 绩 并 将 个 人 平均 成 绩 按 从 大 到 小 的 顺序 输 
出 。 学 生成 绩 如 下 〈 假说 共 8 行 ) ， 


# | 英语 | 总 成 绩 
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解 题 过 程 ， 

第 --- 步 ， 计 算 每 个 学 生 的 总 成 绩 并 求 出 平均 成 绩 。 

第 二 步 ， 以 平均 成 绩 为 准 排序 ， 并 进行 对 应 数据 的 交 
换 。 即 找 出 平均 成 绩 最 高 者 与 表 中 第 一行 对 应 元 素 进行 交 


换 。 


第 三 步 ， 将 排 好 次 序 的 数据 全 部 输出 。 
程序 的 框图 ( 图 6，1， 见 110 页 ) 及 编写 的 FORTRAN 


源 程 序 如 下 ， 


2009 


100 
蕊 
忆 
人 
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PROGRAM 下 Y 

DIMENSIDN STUHDEN (8 9) 

网 RITE(X 《TINPUT N=3 77》 》 

民 民 AD (# (IT ) N 

READ xs (7FOdl) ) (STUDENTI JJ) 


=17) TI=1N) 


DD 1oo I=1yN 
SUM=D 。 吕 
DO 2DD Js=2y7 
SUM=SUM+STUDEN(I J)》 
CONTINUE 
STUDENTI) =SUM 
STUDEN(I 2)=SUMV6。D 
PPDNTINUE 


DD 20 T=1yN-1 
=STUDEN (IT 93) 
KE=T  。 
DD 40 =TI+1yN 
IF(STUDENI ,9) .GT。B) THEN 
B=STUDEN (JJ 9) 
KE= 林 
ENDIP， 


1 CONTINUE 
DO 30 ds=9y1-1 
B=STUDENIRKO) 
STUDENIRE IJ)=STUDEN《TI) 
STUDENT 可) = 中 
3 CDONTINUE 
20 EONTTNUE 
WRITELX 4DO) 《STUDENT 1) ， 
14STUDEN(T OLD) dely6) ， 
23TUDENLT 4B) ,STUDENT 9) ，T=iyN)》 
4 FORMNAT (F6sOy6F6。1yFGd 3 F613 7) 
END 


在 这 个 程序 中 的 
DO 30 J=9，1， 一 1 
30 ”CONTINUE 


循环 结构 是 对 最 大 平均 值 所 在 行 与 第 I 行 的 对 应 元 素 信 进 行 
交换 。 


习 题 六 

1. 生 成 下 列 数组 
111 5 
基 志 2 1 46 
322 7 
432 8 


2 .编写 求 两 个 矩阵 相 习 的 程序 。 
3. 求 多 项 式 Pa(x)aoxn 十 atxnt 十 … 十 an-!xX 十 an 的 
和 。 
4. 对 于 X=1.00，1.01，1.02，…，3.00,， 求 
立 =41.29wTTX2 十 Xtex - 
试 编 其 程序 。 
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胃 儿 最 末 堵 作 币 过 9 图 


9/]AnS=(6DnIS 
JAnS= (8 TDnIS 


8&=(6 1DIS 
(6DDJIS = (6 X)mnILS 


【= 次 
(4 0DnILS=8 


CO 
8<(6 0 


JS 
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第 七 章 “函数 与 子 程序 


在 前 面 的 章节 中 ， 我 们 已 经 介绍 了 简单 程序 ( 即 顺序 结 
构 ) 、 分 支 程 序 以 及 循环 程序 等 知识 ， 掌 握 了 一 定 的 编程 技 
术 。 不 管 是 用 那 种 结构 来 设计 程序 ， 都 局 限于 一 个 主 程序 单 
位 。 而 通过 说 明 语句 定义 的 各 种 类 型 的 FORTRAN 名 都 局 
限于 该 程序 单位 。 

本 章 将 介绍 函数 、 子 程序 以 及 有 关 程 序 单 位 之 间 如 何 进 
行 信息 传递 ， 这 将 使 你 的 程序 设计 更 加 丰富 多 彩 。 


7.1 数 


在 FORTRAN 语 言 中 的 函数 可 分 为 ， 内 部 函数 、 语 名 
函数 以 及 外 部 函数 。 


7.1.1 内 部 函数 


在 第 一 章 中 ， 已 经 对 内 部 函数 作 过 简单 介绍 并 列 出 常用 
的 一 些 内 部 函数 。 下 面 将 进一步 介绍 内 部 函数 及 其 有 关内 
容 。 

内 部 函数 也 称 标 准 函数 ， 它 由 系统 预先 定义 ， 可 在 程序 
中 直接 使 用 。 所 有 内 部 函数 名 、 定 义 、 参 数 个 数 和 类 型 请 参 
见 附录 。 

使 用 内 部 函数 时 必须 注意 以 下 几 点 ， 

(1 ) IMPLICIT 语 名 不 能 改变 一 个 内 部 函数 的 类 型 。 
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(2 ) 对 于 允许 多 个 自 变量 的 内 部 函数 ， 在 使 用 中 所 有 
变量 的 类 型 必须 相同 。 

(3 ) 内 部 函数 名 可 出 现在 INTRINSIC 内 部 语句 中 。 

(4 ) 内 部 函数 的 自 变量 必须 满足 给 定 的 条 件 ， 否 则 将 
引起 运行 错误 。 

(5 ) 若 自 变量 为 角度 时 ， 则 必须 转换 为 弧度 值 。 


7.1.2 语句 函数 


FORTRAN 语 言 中 还 可 以 定义 变量 之 间 的 函数 关 系 ， 
这 种 函数 一 经 定义 ， 就 可 以 象 标 准 函 数 一 样 的 使 用 。 这 就 是 
语句 函数 的 作用 。 

1 .语句 函数 语句 

格式 ，F(X，Xs，…，Xn) 一 (表达 式 》 
其 中 :了 表示 语句 函数 的 名 字 ， 它 应 遵循 FORTRAN 语 言 的 
命名 规则 。 语 名 函数 的 类 型 可 用 类 型 语句 或 N 规 则 来 定义 。 
若 用 类 型 语句 说 明 ， 则 必须 将 类 型 语句 放 在 函数 语句 之 前 。 

圆 括号 中 的 X:， 久 *，…，Xan 为 语句 函数 的 形式 参数 
〈 或 称 哑 元 ) ， 形 参 彼 此 之 间 不 允许 同 名 ， 也 不 多 许 为 党 
数 、 数 组 或 数组 元 素 。 其 类 型 可 用 隐 含 规则 定义 ， 也 可 出 现 
在 类 型 语句 中 ， 但 必须 在 该 语句 酚 数 语句 之 前 。 如 果 形 式 参 
数 与 本 程序 单位 中 的 变量 同名 时 ， 则 其 类 型 与 变量 同类 型 。 

符号 右 端的 表达 式 可 以 是 算术 表达 式 或 还 辑 表达 式 等 。 
在 表达 式 中 除了 形式 参数 X,，X*，…，Xn 以 外 ， 还 可 以 有 
常数 、 变 量 、 内 部 函数 和 本 程序 单位 中 已 经 定义 过 的 语句 函 
数 等 。 

语句 函数 语句 不 是 可 执行 语句 ， 而 是 一 个 特殊 的 说 明 语 
句 ， 它 可 以 出 现在 程序 单位 中 的 所 有 说 明 语 名 之 后 和 第 一 个 
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可 执行 语句 之 前 。 

语句 函数 语句 不 象 可 执行 语句 那样 按 顺序 执行 ， 由 它 定 
义 的 语句 函数 则 只 能 在 表达 式 中 引用 。 
例 1 将 角度 化 成 弧度 ,再 求 函数 值 。 假 设 角 度 Dn 一 X "和 2 
Xs“， 转 换 公 式 为 ， 


Dan=5150 (Xi: 十 Xs/60 十 Xs/3600 ) 。 源 程序 如 
下 ， 


PROGRAM COUNTA 
六 王 ) 二 入 主导 吕 全 各 与 芒 司 头 

txXt+X2ecoD+xaeecoD7 ieSenD 
人 =F 36QGyd4SooDs27O) 
下 =F (TS 口 224 品 虽 。 总 ) 
人 = 民生 1 54 口 ) 
号 = 人 CDGBB) 益生 DOx#STINIAI#TANICC) 
WRITE LOO) 。 BCyS 

1 人 避 FORMAT ICLX 有 二 Fi 了 7 了” BRB=- 
TFT1Ds7 和 Cs FF 7LZLX Sn ,F10。 7) 
冯 ND 


这 个 程序 中 定义 了 一 个 语句 函数 语句 ， 

FE(X1I，X2，X3 ) 一 3.14159265#X (XI1 十 X2/60.0 十 
X3/3600.0 ) /180.0 
它 的 函数 类 型 是 实 型 、 具 有 三 个 参数 X1、X2 和 X3 并 且 均 为 
实 型。 在 这 个 程序 单位 中 ， 计算 函数 值 S 时 ， 引 用 了 sin 
(A)、cos(B ) 和 tan(C ) 。 因 此 ， 在 引用 内 部 函数 之 
前 就 必须 将 其 度 、 分 、 秒 数据 分 别 转换 为 弧度 值 ， 所 以 程序 
中 先后 共 引 用 了 三 次 语句 函数 FE， 从 而 获得 A、B 和 C 的 值 为 
弧度 值 。 坎 行 该 程序 的 结果 为 

A 一 一 呈 '6409580 呈 一 B 王 一 一 .2687810 一 一 C 一 一 呈 。 
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S= 呈 呈 .5813280 

2. 关 于 语句 函数 的 一 些 规定 ， 

(1 ) 一 个 语句 函数 只 能 用 一 个 语句 定义 完 ， 如 果 表 达 
式 太 长 ， 可 以 在 续 行 中 书写 。 

〈 2 ) 语句 函数 只 有 一 个 函数 值 。 

〈3 ) 语句 函数 的 右 端 表达 式 中 可 以 出 现 已 定义 的 语句 
函数 或 引用 内 部 函数 ， 但 不 能 出 现 该 语句 函数 自己 。 

〈4 ) 语句 函数 的 形式 参数 不 允许 为 数组 或 下 你 变量 。 

〈5 ) 语句 函数 名 属于 局 部 变量 ， 只 能 在 定义 它 的 程序 


单位 中 引用 。 

〈6 ) 语句 函数 可 以 没有 形式 参数 X， 双 *，…，Xn， 
称 这 种 形式 的 语句 函数 为 无 参 语 名 函数， 但 圆 括 号 不 能 省 
略 。 其 形式 为 ， 

了 一 《表达 式 ) 


3. 语 名 函数 的 引用 

语句 函数 的 引用 与 内 部 函数 的 形式 一 样 ， 即 ， 

〈 语 名 函数 名 》(〈〔( 实 在 参数 表 )] ) 

使 用 中 应 注意 ， 

若 为 多 个 实在 参数 ， 则 彼此 之 间 必 须 用 逗号 分 隔 ， 并 且 
实在 参数 的 个 数 、 顺 序 、 类 型 必须 与 形 参 一 致 。 

变量 名 、 下 标 变量 名 、 函 数 名 (〈 内 部 函数 、 滞 名 函数 ) 
等 都 可 以 作为 实在 参数 。 


7.2 函数 子 程序 


我 们 知道 , 滞 名 函数 是 贞 一 个 语句 函数 语句 定义 的 ; 它 基 
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于 一 个 表达 式 ， 通 过 语句 函数 语句 定义 的 函数 名 ， 只 局 限于 
一 个 程序 单位 的 内 部 ， 语 名 函数 的 函数 值 只 有 一 个 ， 它 的 形 
参 只 允许 是 普通 变量 名 ， 由 于 语句 函数 名 是 局 部 性 的 ， 所 
以 ， 只 能 在 定义 该 函数 的 程序 单位 中 引用 ， 退 出 定义 它 的 程 
序 单位 后 ， 刚 不 再 有 意义 ， 除 非 被 再 次 定义 ， 形 式 参数 的 限 
制 ， 使 得 数组 名 、 下 标 变量 名 都 不 能 作 语 名 函数 的 形式 参 
数 。 由 于 这 些 ， 使 语句 函数 的 应 用 范围 受到 限制 。 为 了 使 程 
序 设 计 更 为 方便 ，FORTRAN 提 供 了 定义 外 部 函数 的 方 法 
来 定义 函数 子 程序 ， 从 而 扩大 了 函数 的 应 用 范围 。 


7.2.1 函数 子 程序 的 定义 


函数 子 程序 的 结构 形式 是 ， 
[( 类 型 )] FUNCTION FUN ([( 形 式 参 数 表 )] ) 
《说 明 语 句 部 分 》 
FUN= (表达 式 》 | 
2 f 
RETURN | 
END 

其 中 ， 

[( 类 型 )] FUNCTION FUN([( 形 式 参 数 表 )]) 
称 为 FUNCTION 语 句 ， 也 可 以 叫做 ( 外 部 ) 函数 语句 。 它 
指明 一 个 程序 单位 是 函数 ， 并 给 出 其 类 型 、 名 称 和 形 式 参 
数 。 

选择 项 (类 型 ?用 于 给 出 函数 名 FUN 的 类 型 ， 它 可 以 是 
下 列 类 型 定义 符 之 一 ， INTEGER、REAL 或 LOGICAL 
等 。 

FUNCTION 是 函数 语句 的 语句 定义 符 ， 它 标志 着 一 个 
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函数 子 程序 体 


函数 子 程序 的 开始 。 

FUN 是 函数 子 程序 名 ， 它 是 一 个 全 局 名 ， 其 命 名 规则 
如 同 普通 FORTRAN 和 名。FUN 具 有 类 型 , 若 在 FUNCTION 
的 前 面 未 出 现 ( 类 型 )， 则 函数 类 型 遵循 I-N 规 则 ， 否 则 由 类 
型 语句 INTEGER、REAL 或 LOGICALEL 定义 ， 或 者 由 
IMPLICIT 指 定 的 隐 含 类 型 来 确定 ， 也 可 以 在 该 函数 单位 内 
用 类 型 语句 来 定义 。 

形式 参数 表 为 待 选 项 ， 可 根据 要 求 设置 或 不 设置 形式 参 
数 。 如 果 没 有 形式 参数 ， 函数 名 后 也 必须 保留 圆 括号 ， 其 形 
式 变 成 ， 

[(〈 类 型 )] FUNCTION FUN ( ) 

在 函数 语句 之 后 到 END 语 句 之 间 的 语句 序列 组 成 了 函数 
子 程序 体 。 其 中 ， 

说 明 语 句 部 分 的 语句 顺序 同 主 程序 单位 是 一 致 的 。 外 部 
函数 的 类 型 、 形 式 参 数 的 类 型 、 以 及 该 函数 单位 内 部 引用 的 
语句 函数 、 变 量 和 数组 的 类 型 ， 均 可 以 在 说 明 部 分 指定 ， 其 
说 明 方 式 也 同 主 程序 中 一 样 。 

在 函数 子 程序 中 必须 有 至 少 一 个 赋值 语句 对 函数 名 FUN 
赋值 ， 以 保存 求 得 的 函数 值 供 返回 之 用 。 

另外 ， 还 要 有 返回 语句 RETURN。 

这 是 一 个 可 执行 的 语句 ， 它 结束 函数 子 程序 使 之 返回 到 
引用 或 调用 的 地 方 。 若 RETURN 语 句 的 下 一 个 是 下 ND 语 名 
时 ， 则 RETURN 语 句 可 以 省 略 ， 这 时 的 END 滞 句 与 返回 诸 
名 RETURN 等 效 。 反 之 ， 则 不 能 省 略 END 语 句 ， 因 为 它 是 
作为 程序 单位 结束 的 唯一 语句 。 

例 2 ”计算 当 X=1.5 时 ， 多 项 式 

Ps (X ) =3.5X" 十 2.1X4 十 4.15X 十 1.5 和 
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P:。 (XI)=2.4X3 十 1.8X2 十 0.75X 十 4.0 
的 值 ， 用 函数 子 程序 的 结构 编写 其 计算 程序 。 
这 里 将 多 项 式 的 计算 过 程 统 一 编写 成 一 个 函数 子 程序 的 
结构 ， 因 此 ， 可 以 很 容易 地 写 出 计算 多 项 式 的 函数 子 程序 ， 
FUNCTIUN FN)》 NAyx)， 
DIMENSION 全 (7) 
对 =Attl) 
DOD 2 22N+1 
2 CONTINUE 
PNX= 怠 
RETURN 
END 


程序 中 通过 FUNCTION 语 句 定 义 了 一 个 名 为 PNX 的 实 
型 函数 ， 它 具有 三 个 形式 参数 N，A， 双 。 其 中 为 型 ， 代 
表 多 项 式 的 次 数 ，A 为 实 型 数组 ， 为 计算 时 提供 多 项 式 系数 ， 
又 为 实 型 ， 是 多 项 式 的 自 变量 。 

要 计算 Ps (1.5 ) 和 Ps。(1.5 ) 的 多 项 式 值 ， 只 需要 引 
用 两 次 PNX 函 数 子 程序 即 可 。 


7.2.2 函数 子 程序 的 引用 形式 


1 .函数 子 程序 的 引用 形式 

函数 子 程序 的 引用 与 语句 函数 和 内 部 函数 一 样 ， 都 在 表 
达 式 中 引用 ， 它 可 出 现在 表达 式 的 任何 地 方 ， 并 将 这 个 国 数 
值 用 于 该 表达 式 的 运算 中 。 

函数 子 程序 的 引用 形式 是 : 

FE(ai， az，…，an) 

其 中 ，E 为 已 定义 的 〈 外 部 ) 函数 名 。 

ai，al，…，aa 是 实在 参数 表 ， 实 在 参数 可 以 是 表 大 


“人 


式 、 普 通 变 量 、 下 标 变量 、 数 组 名 、 内 部 函数 引用 、 函 数 引 
用 以 及 函数 名 和 子 程序 名 等 〈 注意: 不 多 许 子 程序 名 作 形 参 


和 实 参 ) 。 
如 果 定 义 的 函数 子 程序 没有 形式 参数 ， 其 引用 为 
了 ) 
的 形式 。 
2. 函 数 子 程序 的 执行 过 程 


(1 ) 若 实在 参数 为 表达 式 时 ， 则 先 对 表达 式 求 值 。 
(2 ) 实在 参数 与 形式 参数 的 结合 。 
实在 参数 与 形式 参数 的 结合 称 为 形 实 结合 (或 叫做 哑 实 
合 汉 :4 
若 实在 参数 为 常数 或 表达 式 求 值 得 到 的 值 ， 称 这 种 形式 
的 结合 为 值 的 结合 。 
若 实在 参数 为 已 赋值 的 变量 ( 包括 下 标 变量 ) 、 数 组 名 
时 ， 这 种 形式 的 结合 为 名 的 结合 。 
(3 ) 经 过 形 实 结合 ， 形 式 人 参数 获得 了 所 需要 的 值 后 立 
即 执 行 函数 子 程序 ， 直 到 遇 到 RETURN 滞 名 或 END 语句 
时 ， 则 将 控制 返回 到 引用 的 地 方 ， 并 带 回 所 计算 的 函数 值 参 
加 表达 式 的 运算 。 
例 3 ”对 于 例 2 的 子 程序 ， 其 主 程序 为 ， 
PROQGRAM PRPG64 
DIMENSION A(6) BC4》 
央 民 TEXTINRUT 全 (TIT)==3CTedlO)3 ”9 
1 BT7=3CI=L 44) ) 
READ (#45) (CIT) TIT=z 6) (BIT) TI=T 4) 
所 SPNX SLS5) 
并 于 3 忆 NX 人 和 
冯 RRTT 全 《 闪 1O) X， 且 ，X 已 李 。 


” 


正品 有 有 AT 白 民 号。 之 和 入 民品 。 汪 小 


兴 


也 


C 
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10 。 FbRMAT(Lx FS('F4.1 = Fi07s 
1 PS(F4.1 )= Fi0.7) 
END 


执行 由 多 个 程序 单位 组 成 的 可 执行 程序 时 ， 系 统 总 是 从 
主 程序 开始 执行 ,在 上 述 主 程序 中 .引用 了 两 次 PNX 函 数 子 程 
序 。 当 执行 第 4 个 语句 后 ， 则 将 Ps ( 蔗 ) 和 Ps (zx ) 的 系数 分 
别 读 入 到 实 型 数组 A 和 B 中 ， 其 对 应 元 素 值 为 (3.5，2.1， 
0.0，0.0，4.15，1.5) 和 (2.4，1.8， 0:75，4.0)， 当 
执行 算术 赋值 语句 时 ， 则 右 端 表达 式 中 遇 到 引用 函数 子 程序 
PNX， 而 实在 参数 为 5，A，1.5。 其 中 的 A 为 数组 并 对 应 
PNX 中 的 形式 数组 A，5 和 1.5 分 别 对 应 于 形式 参数 N 和 又。 
由 于 引用 PNX 的 第 一 个 和 第 三 个 实在 参数 均 为 整 型 和 实 型 
常数 ， 所 以 ， 直 接 将 5 和 1.5 分 别 赋 给 形式 参数 N 和 X。 第 二 
个 实在 参数 为 6 个 元 素 的 一 维 数组 A， 而 在 PNX 中 的 形 式 数 
组 的 长 度 能 容纳 A， 因 此 可 进行 名 的 结合 。 形 实 参 数 结 合 完 
毕 后 则 立即 执行 PNX， 此 时 相当 于 执行 下 列 程序 块 ， 

S=A(1) 

DO 20 I=2，6 

S=Se。l.5+A(I) 
20 CONTINUE 

PNX=S 

RETURN 

当 执行 到 RETURN 语 名 时 ，P。(1.5 ) 的 函数 值 已 计 
算 完 毕 ， 然 后 带 值 返回 到 引用 的 表达 式 ， 即 Ps 获 得 了 所 计 
算 的 值 ， 其 余 类 推 。 

3 . 形 人 参与 实 参 的 结合 

参数 的 结合 是 实现 程序 单位 间 信 息 传 递 的 重要 途径 之 
一 ， 以 后 我 们 还 要 介绍 程序 单位 间 传 递 信息 的 其 它 方 法 。 
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(1 ) 实 参与 形 参 之 间 的 赋值 结合 

及 函数 子 程序 的 结构 中 可 知 ， 形 式 参数 是 变量 名 ， 而 实 
在 参数 却 可 以 是 常数 、 表 达 式 和 已 赋 值 的 变量 或 下 标 变量 。 

当 引 用 函数 子 程序 时 ， 若 实在 参数 是 常数 或 表达 式 ; 或 
内 、 外 都 函数 引用 ， 则 在 函数 子 程序 中 不 能 对 这 样 的 形式 参 
数 再 黑 值 ， 这 种 形式 的 结合 被 称 为 值 的 结合 。 即 把 实在 参数 
的 值 直接 赋 给 与 之 对 应 的 形式 参数 后 再 进行 运算 。 

例 4 计算 下 列 函 数 


让 
当 x 为 0.1，0.2，0.3，0.4 时 的 函数 值 。 
要 求 用 函数 子 程序 结构 编写 计算 程序 。 源 程序 如 下 ， 


REAL_ FUNCTION FX(M) 
扫 左 人 L 全 

忆 X:= 蕊 XPR Mi) 

RETURN 

END 


C_MATN PROGRAM TIS_FXM } 


PROGRAM FXM 
X=O。tl 
DUO 10 Te=ty4 
FXE=FXLXXXy》 
WRITE(#y 100》 XFXE 
X=X+O.1 
10 CONTITNUE 
1oo ”FORMATLLXF(F4d)= Fi1DO.7) 
END 


在 这 个 程序 中 ， 函 数 子 程序 的 结构 是 非常 简单 的 ， 在 函 
数 子 程序 体 中 只 有 一 个 算术 赋值 语句 。 该 函数 子 程序 了 X 的 
二 20 7 


类 型 为 实 型 ， 且 有 一 个 实 型 的 形式 参数 M。 

当 执 行 主 程序 时 ， 则 对 X 赋 以 初 值 ， 然 后 进入 循环 。 这 
里 共 循 环 4 次 ， 每 循环 一 次 就 引用 一 次 函数 子 程序 FX， 计 算 
出 一 个 函数 值 后 再 为 下 一 次 循环 作 准 备 。 

在 引用 函数 子 程序 FX 时 ， 给 出 的 实在 参数 是 一 个 实 型 
表达 式 XXX， 因 此 ， 系 统 将 表达 式 的 值 计 算出 来 以 后 才 进 
行 形 实 结合 。 第 一 次 引用 ， 计 算出 表达 式 的 值 为 0.01， 此 时 
的 函数 子 程序 相当 于 下 列 语句 ， 

EX 一下 XP (一 0.01 ) 

了 RETURN 
计算 出 FX 的 值 为 0.99005， 通 过 函数 子 程序 名 将 FX 的 函数 
值 带 回 到 主 程序 中 并 输出 。 用 同样 的 方式 可 计算 出 其 余 的 函 
数值 。 

(2 ) 实 人 参与 形 参 之 间 的 换 名 结合 

当 引 用 函数 子 程序 时 ， 若 实在 参数 为 变量 名 或 下 标 变 
量 ， 则 不 能 将 实在 参数 的 值 直接 赋 给 形式 参数 ， 而 是 用 实在 
人 参数 名 去 替换 相应 的 形式 参数 的 名 字 ， 这 种 结合 方式 称 为 名 
的 结合 。 名 的 结合 实际 上 是 用 实在 参数 的 地 址 去 替换 形式 参 
数 的 地 址 。 对 于 下 标 变量 ， 则 根据 下 祭 表 达 式 的 值 计 算出 它 
在 该 数组 中 的 位 置 ， 然 后 再 用 其 地 址 去 替换 对 应 的 形式 参数 
的 地 址 。 

例 5 ”编写 一 个 求 


2 
f(x，y ) RS 


的 函数 子 程序 及 其 主 程序 。 


FUNCTION FXYCXSY) 函数 子 程序 
F=YKY 
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下 XY=F--2。OXX/AFXX2 


END 
PROGRAM FUNXY 主 程序 . 
READ (#， (2F6.2))》 A,B 
FN=FXY(A;B) 


WRITE (#y 100) 9， BFN 

100 FORMAT('A= F6.2， 7” B=',F6.2， 
1 FA,B)= Fl10.6) 
STOF 
END 


这 里 定义 的 是 一 个 具有 2 个 形式 参数 的 实 型 函数 了 FXY， 
其 两 个 形 参 的 类 型 也 是 实 型 。 
在 主 程序 中 ， 第 一 个 可 执行 语句 READ 按 直接 格式 从 键 
盘 上 读 2 个 数据 分 别 送 A、B 中 ， 接 着 执行 算术 赋值 语句 : 
FN=FXY(A，B) 
它 的 右 端 是 引用 函数 子 程序 FXY， 这 里 用 两 个 实 型 变量 A 和 
B 作 为 FXY 的 实在 参数 。 因 此 ， 在 进行 形 实 参数 结合 的 时 
候 ， 不 能 直接 将 A 和 了 B 的 值 赋 给 形式 参数 X 和 Y， 而 是 分 别 用 
实 型 变量 A 和 了 B 去 替换 形式 参数 X 和 YY。 然 后 再 执行 函数 
FXY， 直 到 遇 到 END 语 句 时 ， 则 结束 FXY 函 数 子 程序 的 执 
行 并 由 函数 子 程序 名 FXY 将 函数 值 带 回 到 引用 的 地 方 ， 再 
赋 给 实 型 变量 FEN， 最 后 输出 计算 结果 。 
如 果 将 主 程序 改写 为 ， 
PROGRAM FUNXY 
DIMENSION A(2) 
READ(<*，" (2F6.2)")(A(I)，I=1，2) 
FN=FXY(A(1),，A(2) ) 


改写 的 程序 中 定义 了 一 个 两 个 元 素 的 一 维 实 型 数组 ， 对 


2 和 


数组 元 素 的 赋值 是 用 READ 语 句 实现 的 。 该 数组 的 第 一、 二 
个 元 素 的 值 分 别 作为 引用 函数 FXY 的 第 一 、 二 个 实在 参数 。 
它 与 形式 参数 的 结合 仍然 是 名 的 结合 ， 这 时 的 函数 子 程序 相 
当 于 下 列 语句 ， 

F=A(2)#xA(2) 

FXY 王 F 一 2.0#A(1)VFX 关 2 

函数 子 程序 除了 由 函数 名 带 回 函数 值 外 ， 也 可 以 用 实在 
参数 带 回 所 需要 的 值 。 

(3 ) 实 参 和 形 参 是 数组 名 的 结合 

形式 参数 也 可 以 为 数组 ， 这 称 作 形 式 数组 ， 它 必须 由 
DIMENSION 语 句 或 类 型 语句 来 定义 。 与 形 式 数 组 相 结合 
的 实在 参数 可 以 是 数组 名 或 下 标 变量 。 

若 形 式 参 数 是 数组 名 ， 则 与 之 对 应 的 实在 参数 也 必须 是 
数组 名 。 在 进行 形 实 参 数 结合 时 ， 将 从 实在 参数 数组 的 第 一 
个 元 素 开 始 ， 按 照排 列 顺序 与 形式 数组 的 对 应 元 素 相 结合 。 

形式 数组 与 实在 数组 结合 时 ， 形 式 数 组 的 大 小 必须 小 于 
或 等 于 实在 数组 的 大 小 。 否 则 将 没有 与 之 对 应 的 数组 元 素 。 
这 是 因为 FORTRAN 编 译 系 统 在 生成 可 执行 程序 时 ， 已 将 
常 界 数组 分 配 了 存储 单元 ， 而 运行 时 无 法 进行 再 分 配 。 

从 函数 子 程序 的 讨论 中 已 经 看 出 ， 引 用 函数 子 程序 是 很 
方便 的 。 但 是 ， 引 用 画 数 子 程序 时 应 注意 某 些 情况 的 发 生 ， 
以 免 产 生 一 些 预想 不 到 的 问题 。 

例 6 “分析 下 列 程序 的 执行 情况 。 

PROGRAM FUNCAL 〈 主 程序 ) 

REAL II 

IT 一 2.0 

S=F(I)+f 
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WRITE (e。，100)I，S 
100 ”FORMAT (1X，7I 一 ，/F5.0，/--S=，F7.0)》 

匡 ND 

FUNCTION F(A) (《 函数 子 程序 ) 

A 一 A 十 1.0 

F=A 

END 

这 个 程序 中 定义 了 一 个 实 型 函数 子 程序 F， 它 有 一 个 实 
型 形式 参数 A。 

执行 上 述 程序 时 ， 主 程序 FUNCAL 中 的 第 一 个 算术 赋 
值 语句 对 实 型 变量 I 赋 初 值 2.0， 接 着 执行 算术 赋 俩 语句 : 

S=F(I) 十 I 

该 语句 的 右 端 表 达 式 中 引用 了 函数 子 程序 FE。 按 表 达 式 的 执 
行 顺序 应 先 引 用 函数 子 程序 F， 然 后 求 出 表达 式 的 值 并 赋 给 
实 型 变量 S， 从 表面 上 看 ， 似 乎 S 的 值 应 为 5.0, 但 实际 上 确 是 
6.0。 其 原因 是 主 程序 在 引用 函数 子 程序 FE 时 ， 实 在 参 数 I 与 
形式 参数 A 以 名 的 方式 进行 结合 ， 而 在 函数 子 程序 中 形 式 人参 
数 又 是 一 个 赋值 形式 参数 ， 执 行 语句 A 一 A 十 1.0 实 际 上 就 相 
当 于 执行 I=I 十 1.0， 即 得 到 结果 为 3 .0 并 赋 给 I， 同 时 函 数 F 
也 得 到 函数 值 3.0。 返 回 主 程序 后 进行 表达 式 计 算 ， 这 时 的 
实 型 变量 I 的 值 不 是 2.0， 而 是 3.0。 因 此 ， 表 达 式 的 值 为 
6。0。 

按照 表达 式 的 计算 顺序 ,S=I+F(I) 是 否 也 应 为 6.0， 
但 计算 机 输出 的 结果 为 5.0。 这 与 函数 优先 计 算 不 符 。 产 生 
这 个 结果 的 原因 : 一 是 没有 优先 处 理 函 数 引 用 ， 而 是 顺序 进 
行 的 ， 二 是 在 计算 F(I) 时 ,已 将 [的 值 传送 到 堆栈 中 保存 ， 
返回 的 函数 值 与 堆栈 中 I 的 值 相 加 ， 即 使 在 函数 子 程序 中 改 
变 了 I 的 值 ， 但 对 堆栈 中 的 值 不 会 改变 所 以 得 到 结果 为 
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5.0。 

如 果 把 语句 S=F ( 工 ) 十 I 改 写 为 语句 
S= (I++1.0) +F(I) 或 
S=1 二 (1.0 十 F(I) ) 

计算 的 结果 均 为 6.0， 这 种 情况 说 明 表 达 式 计算 满足 加 法 结 
合 律 。 
若 再 将 语句 S=F (1I) 十 I 改 为 ， 
S=F(I)+TF(CI7+E(CI) 
岂 得 到 S 的 值 为 12 .0 而 不 是 9.0。 
通过 这 个 例子 说 明 ， 在 引用 函数 子 程序 时 ， 特 别 是 对 赋 
值 形式 参数 的 处 理 要 小 心 ， 否 则 将 会 影响 计算 的 结果 。 

本 例 者 在 其 它 计 算 机 上 运行 ， 其 结果 如 下 ; 
1 培 果 s=eu 
S=F(I) +I 
S=(I+1.0)+F(II) } 人 时 SR 
S=I 十 (1.0+F(I)) 

S=F(I)+F(I) 二 FE(I) 结果 S=12.0 
这 说 明 系统 在 处 理 表 达 式 时 优先 处 理 函 数 引用 ， 而 后 再 处 理 
其 它 。 即 计算 顺序 为 ， 
函数 引用 一 括号 一 秒 方 一 乘 或 除 一 加 或 减 。 


7.3 子 例 程 子 程序 


上 节 中 介绍 的 函数 子 程序 ， 它 除 由 函数 名 带 回 函数 值 
外 ， 还 可 以 用 形 实 人 参数 结合 的 方式 带 回 附加 的 值 ， 不 管 其 参 
数 个 数 或 参数 种 类 如 何 繁 多 ， 计 算 过 程 怎样 复杂 ， 但 它 主 要 
的 作用 还 是 以 返回 函数 值 为 主 。 因 此 ， 对 独立 出 来 的 计算 过 


“125。 


程 可 能 得 到 多 个 值 ， 或 者 根本 就 没有 值 的 情况 ， 函 数 子 程序 
就 不 适用 了 。 对 于 这 一 类 问题 ， 可 以 用 子 例 程 子 程序 的 形式 
来 处 理 。 


7.5.1 ,于 例 程 子 程序 的 结构 


在 FORTRAN 语 言 中 ， 几 乎 任何 问题 的 处 理 都 可 以 必 
主 程序 和 子 例 程 子 程序 ( 或 函数 子 程序 ) 来 实现 。 
1. 子 例 程 子 程序 的 一 般 结构 
子 例 程 子 程序 是 以 SUBROUTINE 语 句 开头 并 以 END 
语句 结束 的 程序 单位 。 它 的 结构 形式 是 ， 
SUBROUYTINE SUB[ ([( 形 式 参 数 表 )]) ] 
(说 明 洁 句 都 分》 } 子 程序 休 
《可 执行 语句 部 分 》 
END 
其 中 ， 
SUBROUTINE SUBK ([( 形 式 参 数 表 )] ) ] 是 子 例 程 
子 程序 语句 。 
SUB 是 子 例 程 子 程序 名 。 
(形式 参数 表 ) 是 该 子 例 程 子 程序 中 所 需要 的 形式 参数 
名 ， 形 式 参数 名 之 问 用 逗号 分 渍 。 根 据 需要 可 设置 多 个 形式 
参数 或 者 没有 形式 参数 。 当 没有 形式 参数 时 ， 该 语句 为 如 下 
两 种 形式 ， 
SUBROUTINE SUB 人 ) 
或 SUBROUTINE SUB 
《说 明 语句 部分 用 于 定义 形式 参数 名 或 该 程序 单位 内 的 
FEORTRAN 名 及 其 类 型 。 
(可 执行 语 名 部 分 ) 是 对 于 例 程 子 程序 的 计算 过 程 进行 处 
”1126。 


理 的 语句 序列 。 

END 是 子 例 程 子 程序 的 结束 语句 。 

2. 子 例 程 子 程序 的 调用 

(1 ) 调用 子 例 程 子 程序 的 形式 

调用 语 名 CALL 是 一 个 可 执行 语句 、 它 的 形式 是 ， 

CALL SUBK ([( 实 在 参数 表 )] ) ] 

其 中 ， 

SUB 为 调用 的 子 例 程 子 程序 名 ， 它 是 由 SUBROUTINE 
语句 定义 的 。 

《实在 参数 表 ) 为 待 选 项 ， 它 可 以 是 一 个 以 上 的 实在 参数 
al，as，…，ana。 实 在 参数 可 以 是 常数 、 表 达 式 ( 包括 函数 
引用 ) 、 变 量 名 、 下 标 变 量 、 数 组 名 等 。 多 个 实在 参数 彼此 
之 间 必 须 用 逗号 “，” 隔 开 。 

当 子 例 程 子 程序 为 无 参 子 例 程 子 程序 时 ， 则 可 用 下 面 形 
式 的 调用 语句 ， 

CALL SUB ( ) 或 

CALL SUB 

例 7 ”计算 多 项 式 

P，(X ) 一 7.38X7 十 2.1X 一 5.5X5 十 0.23X3 十 1.25 
当 X=0.1，0.2，…，1.0 时 的 值 。 

SUSRGUTINE FNF IN NM Xe RNX》 子 程序 . 

INTESGER NM IT 

RE 全 L_ 全 ( 呈 ) 9 ( 全 FMNX Tt) 

DO 10 Tc=1yM 

号 NIX TI) 一口 。 人 


DD 25 =dToN 
FRR CI SFNA OIL 入 人 ET 人 人》 
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公 总 CQNTINUE 
业 纪 CONTINUE 
RETLRN 
ENDB 


FROGRAM FOLYNO 主 程序 
DIMENSION D(8) Xieo) PNCLO) 
册 RTTE《 基 《ENTER M=3 人 MD 
NE 
READXK， 《2T3S2 MiN 
WRITE(X (ENTER DT)=? TI=1。。N 7 ) 
READ ( 基 ， (5F5.2) DT) TI=1N) 
册 RTTE《X9 ENTER XIT) = 人 TIT=i MI ) 1) 
READ ICXKY SF4。1) ) YXLT) Il M) 
CALL FFNFCND MX1LFN) 
WRITE《#eLOD) (XitI) PNCI) IT=TM) 

100 ”FORMAT CIX， POLY FEF4d1 )= 
41E14。7ALX》 - 
SGTOF' 
END 


这 个 源 程序 由 一 个 主 程序 和 一 个 子 例 程 子 程序 组 成 。 

在 子 例 程 子 程序 PNF 中 提供 了 5 个 形式 参数 ， 其 中 2 个 整 
型 形 参 N 和 M， 分 别 用 于 传递 多 项 式 的 次 数 和 自 变 量 个 数 ， 
其 余 3 个 形式 参数 为 实 型 数组 A、X 和 PNX， 分 别 用 于 传 递 
多 项 式 系数 、 自 变量 值 和 多 项 式 值 。 

在 主 程序 中 ， 由 CALL PNF (N，D，M，X1，PN ) 
语句 调用 子 程序 PNFE， 并 向 子 程序 提供 了 5 个 实在 参 数 ， 其 
中 N( 整 型 ) 和 M《 整 型 ) 分 别 为 多 项 式 的 次 数 和 自 变 量 个 
数 ，3 个 实 型 数组 D、X1 和 了 PN， 分 别 用 于 存储 多 项 式 的 系 
数 ， 自 变量 值 和 返回 多 项 式 之 值 。 
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执行 调用 语 名 CALL 时， 则 首先 进行 形式 参数 与 实在 参 
数 的 结合 ， 即 分 别 用 5 个 实在 参数 的 名字 去 替换 子 例 程 子 程 
序 中 对 应 的 形式 参数 名 ， 然 后 可 得 到 子 例 程 子 程序 的 可 执行 
部 分 如 下 ， 

DO 10 T=1，M 

PN (1) =0.0 
DO 20 J=1，N+1 
.PN(I)=PN(CI)。XlI(I)+D(J) 
20 CONTTNUE 
lu CONTINUE 

执行 形 实 参数 结合 后 的 程序 可 得 到 M 个 N 次 多 项 式 的 值 
且 被 存储 于 PN 数组 中 。 当 子 例 程 子 程序 遇 到 下 ND 语 句 时 ， 
则 结束 子 程序 的 执行 并 由 PN 数组 带 回 所 计算 的 多 项 式 的 值 。 

这 时 再 由 主 程序 输出 PN 的 值 。 

〈《 2 ) 调用 语句 的 执行 过 程 

CALL 语 句 的 执行 是 按 下 列 方式 进行 的 : 

计算 所 有 以 表达 式 方式 出 现 的 实在 参数 的 值 ， 即 对 表达 
式 求 值 。 

实在 参数 与 对 应 的 形式 参数 结合 。 其 结合 方式 与 函数 子 
程序 的 结合 方式 相同 。 

执行 指定 的 程序 体 。 

当 执 行 到 RETURN 语 句 或 END 语 名 时， 控制 返回 到 当 
前 的 CALIL 语 名 的 后 继 语 句 处 。 并 由 与 形式 参数 对 应 的 实在 
参数 带 回 运行 的 结果 。 

上 例 主 程序 中 的 调用 滞 句 CALL 执行 后 ， 由 PN 数 组 带 
回 多 项 式 的 值 。 

ENTER M=? (MX<=10)，N=? (N<7) 
一 10 呈 二 84/ 
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ENTER D(I)=*”，I=1，2，…，N 
7.8 2.1 一 5.5 0.0 0.23./ 

0.0 0.0 1.25./ 

ENTER XL(I) =? I=1，2，…，M 

1 2 .3 .4 .5 

“6 .7 .8 .9 1. 2-/ 

POLY (一 0.1 呈 王 ) 王 一 一 一 一 一 1.2501800 
POLY (一 0.2 一 一 ) 二 2503100 


编写 和 调用 子 例 程 子 程序 时 应 注意 以 下 几 点 ， 

(1 ) 子 例 程 子 程序 的 符号 名 只 标识 该 子 例 程 子 程序 ，， 
没有 值 的 意义 ,所 以 没有 数据 类 型 之 分 。 也 不 能 在 子 例 程 子 程 
序 中 对 其 赋值 。 但 它 是 全 局 名 ， 所 以 在 程序 中 的 任何 地 方 都 
不 能 有 与 之 相同 的 名 字 。 

(2 ) 子 例 程 子 程序 中 的 形式 参数 可 以 是 变量 名 、 数 组 
名 。 也 可 以 没有 形式 参数 。 

( 3 ) 实 参 和 形 参 在 个 数 、 顺 序 、 类 型 方面 都 必 须 一 一 
对 应 。 

7.5.2 可 调 数 组 与 假定 大 小 数组 


引用 函数 子 程序 和 调用 子 例 程 子 程序 时 ， 首 先进 行 实在 
参数 与 形式 参数 的 结合 。 当 遇 到 形式 参数 是 数组 名 时 ， 则 对 
应 的 实在 参数 也 必须 是 数组 名 或 下 标 变量 ， 并 且 要 求实 在 数 
组 的 大 小 应 大 于 或 等 于 形式 数组 的 大 小 。 在 前 面 的 示例 中 ， 
形式 数组 与 实在 数组 都 具有 相同 的 大 小 ， 所 以 它们 从 对 应 数 
组 的 第 一 个 元 素 开 始 或 从 指定 的 数组 元 素 开 始 按 数 组 的 排列 
顺序 一 一 对 应 结合 。 

除了 维 数 固定 的 常 界 数组 以 外 ，FORTRAN 还 提供 可 
调 数组 。 
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1. 可 调 数组 

在 定义 数组 时 ， 除 了 用 加 型 常数 作 维 上 界 之 外 ， 还 可 以 
用 整 型 变量 作 维 上 界 ， 用 这 种 形式 定义 的 数组 称 为 可 调 数 
组 ， 其 维 上 界 的 确定 必须 在 引用 该 数组 之 前 ， 而 数组 是 在 一 
个 程序 单位 之 前 的 说 明 语 句 中 定义 的 。 所 以 ， 在 主 程序 中 显 
然 不 可 能 定义 可 调 数组 ， 只 可 能 在 函数 子 程序 或 子 例 程 子 程 
序 单 位 中 出 现 可 调 数组 。 

可 调 数组 必须 是 形式 数组 ， 即 可 调 数组 名 必须 是 形式 人 参 
数 。 其 维 上 界 也 最 好 选用 整形 变量 的 形式 参数 或 者 出 现在 同 
一 程序 单位 中 的 整 型 公用 变量 名 。 

可 调 数组 的 引入 ， 有 利于 通用 程序 的 设计 ， 使 存储 单元 
得 到 充分 的 利用 。 

例 8 求 多 项 式 P(X ) =aoX* 十 aiX" 1 十 … 十 au-iX 十 
aa 的 值 ， 用 可 调 数组 来 实现 。 


SUBROUTINE PNF (NA,M,X,FPNX) 
REAL BCN) ,X(M) ,FNX(M) 
DD 10 TI=1,M 
FNX(I) =D.b 
DD 20 dg=iyN 
PNX (TI)=PNX(IT)x#X(T)+ACI)》 


20 CONTINUE 
1 忆 ONTINUE 
RETURN 
END 


这 个 子 例 程 子 程序 不 需要 进行 任何 修改 ， 编 写 -个 主 程 
序 ， 给 出 实在 参数 就 可 求 由 实在 参数 所 决定 的 任何 次 光 项 式 
的 值 。 若 机 计算 下 列 多 项 式 : 

P:(X) =1.5X3 十 2.1X? 十 1.3X 十 1.56 

P:(X ) 一 一 0.75X2 十 2.32X 十 0.015 
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Ps(X) 王 0.9X5" 十 2.4X3s 一 1.3X2 十 1.34 
在 X= 一 0.5，0.5，1.5 时 的 值 ， 其 主 程序 如 下 ， 


FRUGRAM PN2SS 
DIMENSION X(3) CC(6) ，D(3) 
WRITE (#,， (INFUT X(T)=?yT=1. .SS 
READ (#,，“ (SFS5.1)) (XIT)，I=1)3S) 
DO 40 TI=1) 
WRITE (#， (TNFUTN=3<N=2 3 52> 7 ) 
READ (#,， (TI2)…) N 
WRITE(#,， (INPUT CGI)=3J=to。N+L 7) 
READ(# 50) (CGI) JI=1N+1) 
CALL FNF (N+1yCSXD) 
WRITE (xy 100) N，CX() DJ) =1;S) 
1 CONTINUE 
50 FORMAT (1OF6.。S) 
100 ”FORMAT (1X，N= TI2，7， 
1('POLY(F4.3 )= Fl10.7/1IX)) 
STOF 
END 


2 .假定 大 小 数组 
可 调 数组 作 形 式 参数 ， 引 用 函数 子 程序 或 子 例 程 子 程序 
时 ， 导 有 殖 实 在 数组 与 形式 数组 的 结合 并 以 实在 数组 的 大 小 来 
确定 形式 数组 的 大 小 ， 给 程序 设计 带 来 了 方便 。 
除了 可 调 数组 以 外 ， 还 可 以 把 星 号 “#x” 放 在 数组 的 最 
末 维 上 ， 这 样 定义 的 形式 数组 叫 作假 定 大 小 数组 。 
假定 大 小 数组 的 名 字 必 须 是 形式 参数 ， 它 的 元 素 个 数 无 
法 确定 ， 只 有 实在 参数 与 形式 参数 结合 后 ， 以 实在 数组 的 大 
小 来 傅 定 假定 大 小 数组 。 如 ， 
SUPROUTINE SUB(A，B，C，D，M) 
DIMENSION A( 关 )，B(10，x 关 ) 
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INTEGER CC(M，#)，D(2，2， 尖 ) 

形式 数组 A 是 一 维 的 假定 数组 。B 是 已 知 第 一 维 的 维 上 
界 ， 第 二 维 是 假定 的 ， 它 是 一 个 二 维 假定 数组 。 第 三 个 是 一 
个 整 型 形式 数组 ， 第 一 维 由 整 型 变量 M 给 出 其 维 上 界 ， 第 二 
维 是 星 号 “#%”， 则 是 不 定 的 。 因 此 ， 它 是 一 个 整 型 假定 数 
组 。 第 四 个 是 一 个 整 型 形式 数组 ， 第 一 、 二 维 用 整 常数 作 维 
上 界 ， 第 三 维 不 位 定 ， 它 是 三 维 假定 数组 。 

假定 大 小 数组 的 前 几 维 若 由 整 常数 作 维 上 界 ， 则 是 常 界 
假定 大 小 的 数组 。 若 前 几 维 中 出 现 有 整 型 变量 作 维 上 界 的 ， 
则 是 可 调 的 假定 大 小 的 数组 。 不 管 是 那 一 种 形式 的 假定 大 小 
的 数组 ， 均 由 引用 或 调用 时 的 实在 数组 的 大 小 来 确定 其 大 
小 。 


7.4 等 价 语句 与 公用 语句 


7.4.1 等 价 语句 


等 价 语 名 EQUIVALENCE 是 一 个 非 执行 语句 ， 它 们 放 
在 程序 单位 第 一 个 可 执行 语 名 之前。 在 同一 程序 单位 内 ， 它 
可 用 来 说 明 两 个 以 上 的 变量 或 数组 共享 同一 个 存储 单元 。 

1. 等 价 语 名 的 格式 

EQUIVALENCE ( (变量 表 》 )[，( (变量 表 》) ]… 
其 中 ， 

《变量 表 ) 可 以 是 两 个 或 两 个 以 上 的 变量 名 、 数 组 名 或 数 
组 元 素 名 ， 相 互 之 间 用 逗号 分 隔 。 

出 现在 圆 括 号 内 的 所 有 元 素 构 成 一 个 区 成 ， 称 为 等 价 
域 ， 同 一 等 价 域 的 变量 分 配 同 一 个 存储 单元 。 如 ， 


本 和 全 汪 


EQUIVALENCE (RS)，(A，B，C) (1) 
EQUIVALENCE (A，B，、C，D) (2) 
DIMENSION A(100)，D(100) (3) 
EQUIVALENCE (A，D ) 
语句 (1 ) 中 建立 了 两 个 等 价 域 ， 第 一 个 等 价 域 中 的 两 
个 变量 R 和 S 共 用 一 个 实 型 量 存储 单元 。 第 二 个 等 价 域 中 有 
实 型 变量 A、B 和 C， 它 们 共用 一 个 实 型 量 存 储 单 元 。 其 余 
类 似 。 
2.EQUIVALENCE 语 名 的 规则 
(1 ) 函数 子 程序 或 子 例 程 子 程序 的 形式 参数 名 不 能 在 
-等 价 域 中 出 现 。 
(2 ) 在 同 -- 程 序 单 位 中 ， 同 一 个 变量 名 不 能 出 现在 多 
个 等 价 域 中 或 与 同一 数组 的 两 个 或 两 个 以 上 的 元 素 等 价 。 
〈 3 ) 连续 的 数组 元 素 只 能 按 顺 序 存 放 , 否则， 不 允许 。 
(4 ) 车 与 公用 数组 等 价 ， 则 可 使 公用 数组 得 到 值 。 
(5 ) 在 等 价 语 句 中 ， 等 价 变量 的 类 型 之 间 不 能 竺 换 。 
例 9 用 等 价 语句 编写 的 程序 示例 。 


PROGRAM EQUIV 
EQUIVYALENCE (有 NB) 
蕊 GUIYALENCE 《BR C) 


从 = 二。 
WRITE (< 10) ,EC 
耻 王 0 
凤 R 愉 了 TE《 XI DO 台 ， 下， 尼 
伟 三 也 已 。 属 
本 民工 了 江 《 基 二 虽 》 全 及， 

1 FQRMGT (1X9 = Fo ob ” B= 
#FG CEFewO) 罗 
END - el 
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执行 这 个 程序 可 得 到 下 列 数据 ， 
A 一 一 一 一 10. 呈 二 B 王 一 一 10. 一 一 CC 一 一 -10， 
A== 20.  B= 20.。  C= 20. 
A 一 30.  A= 30。  C= 30。 
从 程序 中 的 等 价 语 句 可 知 ， 实 型 变量 A 和 B 共 用 一 个 存 
储 单 元 并 构成 一 个 等 价 域 ， 在 后 一 个 等 价 语 句 中 ， 实 型 变量 
B 和 C 共 用 一 个 等 价 域 的 存储 单元 。 实 型 变量 B 在 两 个 等 价 域 
中 同时 出 现 ， 因 此 ， 实 型 变量 B 将 两 个 等 价 域 连 成 了 一 个 等 
价 域 。 即 相当 于 下 列 等 价 语句 ， 
EQUIVALENCE (A，B，C ) 


7.4.2 公用 语句 


利用 公用 语句 建立 公用 块 是 程序 单位 间 传 递 信息 的 又 一 
途径 ， 它 允许 不 通过 形 实 参数 结合 就 可 以 定义 和 引用 相同 的 
数据 ， 并 共享 有 存储 单元 。 在 同一 个 程序 单位 中 ， 公 用 语句 
可 以 定义 无 名 公用 块 和 有 名 公用 块 。 

1. 公 用 语句 的 一 般 形式 

COMMON[/〔(( 公 用 块 名 7]/]( 变 量 表 )[[，]/C《〈 公 用 
块 名 7]/( 变 量 表 >]… 

其 中 ， 

COMMON 是 公用 块 语句 定义 符 ， 标 志 公用 块 语句 的 
开始 。 若 省 去 4 公用 块 名 )， 则 表示 该 块 为 无 名 公 用 块 ; 〈 变 
师表) 可 以 是 公用 块 中 的 变量 名 、 数 组 名 或 数组 说 . 明 符 ， 相 
互 之 间 用 逗号 隔 开 。 

〈《1) 无 名 公用 块 的 形式 

COMMON Ci，C:。，…，Cn 或 
COMMON //C，C:，…，Cn 
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其中，C，C…，Can 为 无 名 公用 块 中 的 公用 元 素 ， 它 可 以 
是 变量 名 、 数 组 名 或 数组 说 明 符 ， 相 互 之 间 用 逗号 分 了 喇 。 无 
名 公用 块 的 标志 是 没有 公用 块 名 或 是 两 个 连续 的 斜 杠 等 。 
如 ， 
COMMON A，B，C，D 
COMMON //X，Y，Z，F(4) 
COMMON I1，I2，NA (10) 
〈《2 ) 有 名 公用 块 的 形式 
COMMON /公用 块 名 ) 人 公用 元 素 表 )[ 人 公用 块 名 》 
《公用 元 素 表 )… 
如 ， 
COMMON /COMI/A，B，C 
COMMON /COM2/A (4)，D 
COMMON /COM/V/J， 开 ,， 革 
这 三 个 公用 语句 分 别 说 明了 有 名 公用 块 COM1.COM2、 
COM。 在 COM1 中 定义 了 三 个 实 型 公用 变量 A，B 和 C。 在 
COM2 中 定义 了 实 型 公用 数组 A， 具 有 四 个 数组 元 素 ， 还 有 
一 个 实 型 公用 变量 D。 公 用 块 COM 中 定义 了 三 个 整 型 公用 
变量 J， 开 和 L。 它 们 的 单元 分 配 是 从 各 自 公 用 块 的 第 一 个 存 
储 单元 连续 地 按 公用 元 素 出 现 的 先后 顺序 来 分 配 存储 区 域 。 
2. 对 COMMON 语 名 的 限制 | 
(1 ) 公用 块 中 的 元 素 名 不 多 许 是 形式 参数 或 函数 名 。 
(2 ) 在 同一 个 程序 单位 中 ， 公 用 语句 可 以 出 现 多 个 ,在 
同一 公用 块 中 的 所 有 元 素 按 它们 在 COMMON 语 句 中 出 现 
的 顺序 分 配 公用 块 中 的 存储 单元 。 
(3 ) 在 公用 语句 中 ， 任 一 公用 变量 名 、 数 组 名 或 数组 
说 明 符 只 能 出 现 一 次 ， 否 则 是 错误 的 。 
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《4 ) 公用 块 的 大 小 等 于 公用 块 中 所 有 元 素 所 要 求 的 总 
存储 字 节 数 。 例 如 ， 

COMMON A，B，C，D, 下 (2)， LI N 
中 说 明了 四 个 实 型 公用 变量 A，B，C，D。 两 个 元 素 的 公用 
数组 已 各 型 公用 变量 I、N。 它 们 占用 无 名 公用 块 的 前 28 个 
字 节 的 存储 区 域 ， 即 ， 


〈5 ) 所 有 程序 单位 中 的 无 名 公用 块 的 大 小 可 以 不 同 ， 
但 是 ， 相 同名 字 的 有 名 公用 块 的 大 小 必须 相同 。 

〈6 )》 在 可 执行 程序 中 ， 具 有 相同 名 字 的 公用 块 的 存储 
区 有 相同 的 第 -一 个 存储 单元 。 所 有 无 名 公用 块 的 存储 区 有 相 
人 
用 块 中 的 对 应 单元 相 结 。 而 不 象形 参 和 实 参 那样 技 形 实 参 
数 的 个 数 、 类 型 、 位 置 一 对 应 ， 

例 10 ”下面 是 COMMON 语 句 应 用 的 实例 。 


疡 只 人 GRAM MAIN 
CQMMON /ZN17ZA3 By CD 


人 LL SUB1 
WRITE (#10) 0 BCG,D 
10 FORMAT(LX， FS， 0,， BFS.ON 
X%VALA1X “Cs 人 吕 “pz， “FS。 O) 
END 


3 


SUBROUTINE SUB1 
COMMON /ZN17VP(2，2) 
WRITE (XITINPUT Ptd1)。 PP(2 2 ) 
READ ( 关 1O) 《(PtTD) =1 3) Ti 2) 
NRTTE(#920) ((P(IT JJ) TI=1 2) JJ=i 2) 
总 FDRMAT(4F4。O) 
20 FDRMAT 1X， Ptyt)= FS.O P(22)=， 
其 开 宇和 ， ALALX WP 忆 (2 1) = FDI， PP(22)=/ 
共 4 天 划 ) 
END 


在 这 个 程序 的 子 例 程 子 程序 SUB1 中 定义 了 公用 块 Nl， 
说 明了 一 个 二 维 4 个 元 素 的 公用 数组 P。 在 主 程序 中 定义 了 
一 个 公用 块 N1， 说 明了 四 个 实 型 公用 变量 A、B、C 和 D。 
同名 公用 块 N1 具 有 相同 的 第 一 个 存储 单元 。 所 以 ， 即 有 下 
列 对 应 关系 : 
主 N1 子 


若 给 入 数据 为 ， 
2 .一 3 一。 
则 输出 数据 为 ， 
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P(1，1) = 呈 1. 一 5P(2，1) 王 3。 
有 (2 有 人 2 全 5 
一 1.-……B= 一 3. 
C= 一 2 .一 一 D 一 一 4。 
3. 公 用 语句 与 等 价 河 句 联 用 
等 价 语句 EQUIVALENCE 可 以 和 公用 元 素 建 立 等 价 关 
系 。 但 必须 注意 ， 
(1) EQUIVALENCE 语 句 不 能 使 用 两 个 不 同 的 公用 
块 中 的 存储 域 成 为 等 价 ， 也 不 能 使 同一 公用 块 中 的 元 素 建立 
等 价 关 系 。 如 ， 
COMMON /NAME/A，B，C/NALI/E，F，G 
EQUIVALENCE (A, E)，(A，B) 
这 里 定义 了 两 个 公用 块 ， 块 名 为 NA WE 和 NA1。 在 NAWE 
中 说 明了 三 个 实 型 公用 变量 A，B，C。 在 NA1 中 说 明了 三 
个 实 型 公用 变量 已 ，F，G。 
在 EQUIVALENCE 语 句 中 ， 建 立 了 两 个 等 价 域 ， 第 一 
个 等 价 域 要 求 公 用 块 NAME 中 的 变量 A 与 公用 块 NA1 中 的 
变量 卫 等 价 。 第 二 个 等 价 域 要 求 公 用 块 NAME 中 的 变量 A 和 
B 等 价 。 因 而 等 价 语句 中 所 建立 的 两 个 等 价 域 都 是 错误 的 。 
(2 ) 可 用 EQUIVALENCE 语 句 扩展 公用 块 ， 这 种 扩 
展 只 能 向 后 而 不 能 向 前 扩展 。 如 ， 
COMMON /ABC/R (10) 
REAL S(10) 
EQUIVALENCE (R(I0)，S(1))》 
其 中 R 是 公用 块 中 的 数组 ， 共 有 10 个 数组 元 素 ， 通 过 等 价 语 
名 建立 了 公用 数组 R 和 数组 S 的 等 价 关 系 ， 即 是 数组 元 素 R 
《10 ) 和 数组 元 数 S〈 1 ) 等 价 ， 因 而 使 得 公用 区 ABC 从 第 
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10 个 元 素 开 始 向 后 扩展 。 


RCI) | R(C2) oo R(9)| RCI0) 
SCI) | SC2) S(10) 
共享 区 域 向 后 扩 层 区 域 
若 改 为 下 列 语句 ， 
COMMON /ABC/R (10) 
REAL S(10) 


EQUIVALENCE (RCI)，S(10) ) 
则 使 得 公用 块 向 前 扩展 ， 这 是 不 允许 的 。 


RCID) 
SC(UD | S(2) | S(9) S(10) 
ay 


向 前 扩展 的 区 域 共享 区 域 


4.SAVE 语 句 


SAVE 语 句 称 为 保留 公用 块 定义 语句 ， 作 用 是 从 定义 公 
用 域 的 子 程序 中 返回 后 保留 该 块 的 定义 。 

在 FORTRAN 语 言 标准 中 ， 所 有 的 公用 块 都 是 静态 分 
配 的， 都 已 自动 地 被 保留 。 因 此 ，SAYVEE 语 句 在 此 无 多 大 作 
用 。 


习题 七 
1 十 V1 十 又 2， 若 X<0 
ar GO-| 0 若 X=0 
1 一 VWTITX5， 若 X>0 
从 而 计算 
F=K+Y (At+2Z) 
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G-- 工 (人 At) 
Y 


H=Y(cos(X) )+Y(sin(X) ) 
其 中 狼人 A，B，C，X。，2Z 由 输入 语句 给 出 ， 并 答 出 FE、G、H 之 值 。 
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第 八 章 “文件 及 输入 输出 系统 


本 章 将 讨论 FORTRAN 语 言 文件 的 基本 概 念 、 处 理 届 
及 有 关 的 语句 。 


8.1 文件 的 基本 冉 念 


1. 沁 录 

一 个 FORTRAN 77 文 件 是 由 一 个 或 多 个 记录 组 成 的 。 
记录 是 字符 或 数值 的 序列 。 有 三 种 类 型 的 记录 ,格式 记录 、 
无 格式 记录 以 及 文件 结束 记录 。 

(1 ) 格式 记录 由 处 理 系 统 所 能 表示 的 字符 序 列 组 成 ， 
其 长 度 以 字符 度量 ， 以 回 车 换行 作为 一 个 格式 记录 的 结束 。 
格式 记录 必须 和 格式 输入 输出 语句 配合 使 用 。 

(2 ) 无 格式 记录 是 数值 序列 ， 不 需要 系统 转换 和 解释 ， 
并 且 没 有 记录 结束 的 标志 ( 物理 表示 ) 。 在 不 需要 编辑 和 二 
顶 时 ， 则 可 用 无 格式 记录 进行 存储 或 恢复 信息 ， 

(3 ) 文件 结束 记录 就 是 由 ENDFILE 语 句 输出 的 ， 它 
作为 文件 的 最 来 一 个 沁 录 。 人 但是， 实际 上 并 没有 一 个 真实 的 
沁 录 与 它 相对 应 ， 这 只 是 文件 结束 的 一 个 标志 。 

2. 文 件 

FORTRAN 文 件 分 为 内 部 文件 和 外 部 文件 。 内 部 文件 
是 指 一 个 字符 变 证 ， 字 符 芍 组 或 字符 数组 元 素 ， 它 作为 笨 入 
输出 数据 的 米 源 或 处 理 结果 而 被 存储 。 外 部 文件 是 指 在 外 部 
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设备 上 的 文件 或 外 部 设备 本 向 。 

文件 具有 如 下 特性 ， 

一 个 文件 可 以 有 一 个 名 字 ， 文 件 名 是 操作 系统 能 够 识别 
的 一 个 字符 串 ， 并 与 所 使 用 的 操作 系统 的 文件 取 名 规则 相 一 
致 。 同 一 文件 名 可 带 有 一 个 扩展 名 或 其 它 信息 。 例 如 ;SYS， 
A .TEXT 和 #4:A. TEXT 等 。 
一 个 存储 于 外 部 设备 上 的 文件 ， 在 恋 写 该 文件 之 前 必须 
执行 打开 文件 的 操作 。 目 于 每 个 文件 都 由 若干 个 记录 组 成 ， 
所 以 ， 打 开 文 件 后 ， 有 一 个 叫 作文 件 定位 指针 的 指示 器 指向 
文件 中 某 个 位 置 。 根 据 文件 定位 指针 指出 的 位 置 可 对 记录 进 
行 存 取 。 如 果 文 件 定位 指针 指示 的 位 置 不 正确 一 则 存 取 就 会 
出 错 。 有 下 列 几 种 情况 ， 

(1 ) 一 个 文件 的 起 始点 就 是 文件 的 第 一 个 记录 前 的 位 
置 。 对 文件 施行 打开 操作 时 ， 文 件 定位 指针 则 指向 文件 的 第 
一 个 记录 之 前 的 位 置 。 如 下 图 所 示 ， 


第 ! 个 记录 5 第 n 企 记录 


让 文件 的 起 始点 ( 指 计 ) 


( 2 ) 一 个 文件 的 终结 点 是 文件 的 最 后 一 个 记录 之 后 的 
位 置 。 在 对 文件 进行 景 作 时 ， 车 文件 定 位 指针 已 指向 文件 的 
终结 点 ， 则 表示 读 / 写 操作 已 经 完成 了 。 可 用 下 图 表示 ， 


第 1 个 记录 ES | 第 n 个 记录 


文件 的 终结 点 T (指针 ) 


(3 ) 如 果 文 件 定位 指针 指向 文件 的 第 i 个 记录 内 ， 则 第 
i 个 记录 被 称 为 当前 记录 。 第 i-1 个 记录 称 为 前 一 记录 ， 第 
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i 十 1 个 记录 则 称 为 下 一 个 记录 。 而 iE 〔1，n] 。 用 图 表示 
为 : 
前 一 记录 ”当前 记录 ”下 一 记录 
1 1 1 


1 一 指针 


《4) 如 果 文 件 定位 指针 指向 两 个 记录 之 词 ， 则 没有 当 
前 记录 ， 而 只 有 前 一 记录 和 下 一 记录 。 如 图 所 示 ， 


人 让 


记录 1 


了 指针 


写 一 个 打开 的 顺序 文件 时 ， 文 件 指针 在 起 始 位 置 ， 文 件 
中 的 旧 数 据 被 废除 。 顺 序 写 完 后 ， 文 件 指针 处 于 末端 位 置 ， 
但 未 超过 文件 结束 记录 。 执 行 ENDEFILE 语 名 使 文件 越过 文 
件 结束 记录 。 同 样 ， 执 行 READ 语 句 ， 使 文件 位 置 也 处 于 末 
端 ( 没有 越过 文件 结束 记录 ) 。 用 户 可 以 在 READ 语 句 中 使 
用 “END=” 选 择 项 来 检查 是 否 读 进 一 个 文件 结束 记录 。 

外 部 文件 可 作为 格式 的 、 无 格式 的 文件 打开 ， 内 部 文件 
只 能 是 格式 的 。 格 式 文 件 全 部 是 由 格式 记录 组 成 的 ， 无 格式 
文件 全 部 是 由 无 格式 记录 组 成 的 。 

3. 文 件 的 存 取 方 式 

文件 的 存 取 主 要 是 对 外 部 文件 而 言 的 ， 它 有 两 种 存 取 方 
式 ， 即 顺序 存 取 和 直接 存 取 。 

顺序 文件 的 记录 具有 一 个 次 序 ， 它 由 被 写 入 的 顺序 所 决 
定 。 这 些 文件 不 能 用 选择 项 “REC 王 ”来 读 或 写 ， 因 为 它 将 
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作为 直接 文件 进行 处 理 。 若 所 写 的 记录 超过 该 文件 原先 的 结 
束 界 限时 ， 系 统 就 扩充 顺序 存 取 文件 ， 但 这 要 取决 于 该 物理 
设备 在 该 文件 末尾 是 否 还 有 存储 空间 。 

直接 ( 即 随机 ) 存 取 文 件 的 顺序 是 记录 编号 的 顺序 。 可 
以 按 任意 次 序 去 读 写 文件 记录 。 

打开 随机 文件 时 ， 每 个 记录 只 有 一 个 编号 。 这 种 文件 必 
须 建立 在 外 存储 器 上 ， 不 能 删除 已 写 过 的 记录 ， 但 可 以 重 写 
新 的 记录 内 容 ， 且 只 能 用 随机 存 取 的 输入 输出 语句 来 处 理 。 


8.2 文件 的 打开 与 关闭 


要 对 数据 文件 进行 存 了 到 ， 首 先 必 须 用 OPEN 语 名 打开 数 
据 文件 ， 确 定 文件 的 存 取 方 式 、 格 式 等 。 操 作 完 毕 还 必须 关 
闭 所 有 打开 的 文件 。 

1. 打 开 数 据 文件 语句 

一 个 文件 的 打开 是 由 OPEN 语 句 实现 的 。 用 它 向 系统 提 
供 必要 的 信息 ， 把 一 个 文件 的 部 件 号 与 外 部 设备 或 在 外 部 设 
备 上 的 文件 连接 起 来 。 

OPEN 语 句 的 格式 ， 

OPEN (U，FILE=( 人 文件 名 》 [， STATUS=st] 

[，ACCESS=ac] 〔，FORM=fim] 【RECL= 
r]] ) 

其 中 :，U 为 所 要 求 的 部 件 号 说 明 符 ， 它 必须 作为 第 一 个 参数 
出 现 ， 且 为 一 个 整形 变量 或 整 型 常数 。U 的 取 值 范 围 ， 
若 U 为 二 字 节 略 型 变量 时 ， 则 取 值 为 ， 
一 32768SU 委 32767 
文件 名 必须 为 第 二 个 参数 。 如 果 指 定 的 文件 名 为 空 ( 即 
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RILE= 7” ) ， 则 在 程序 运行 时 出 现 提示 信息 ， 

IO _ ERROR : BAD FILE NAME 

S# 8，P# 28，I# 146 

TYPE (人 (SPACE TO_ CONTINUE 
这 时 散 (SPACE? 键 ( 即 空格 ) ， 则 退出 当前 运行 程序 ， 系 
统 重新 初始 化 。 

st 为 字符 表达 式 ， 表 示 文 件 的 状态 ( 即 新 文件 或 旧 文 
件 ) 。 如 果 不 选 择 此 项 ， 则 所 打开 的 文件 为 OLD 状态 。St 
的 值 可 为 OLD 或 NEW。 如 果 值 为 OLD， 则 表示 所 打 开 的 
文件 已 经 存在 。 若 值 为 NEW， 则 表示 所 打开 的 文 件 为 新 文 
件 。 

ac 为 字符 表达 式 ， 它 指定 文件 的 存 取 方 式 。 其 值 可 为 
SEQUENTIAL ( 顺序 ) 或 DIRECT ( 直接 ) 。 前 者 为 顺 
序 存 取 方 式 ， 后 者 为 直接 存 取 方 式 。 若 不 选择 此 项 ， 则 隐 含 
为 顺序 存 取 方 式 SEQUENTIAL。 

fm 为 字符 表达 式 ， 它 指定 记录 的 格式 ， 其 值 可 为 FOR- 
MATTED ( 有 格式 ) 或 UNEORMATTED (无 格式 ) 之 
一 。 如 果 存 取 方 式 是 顺序 的 ， 则 不 选择 此 项 时 为 格式 的 ， 即 
取 值 为 FORMATTED， 否 则 为 UNFORMATTED ( 即 为 
无 格式 的 ) 。 如 果 为 直接 存 取 方 式 ， 不 选择 此 项 则 为 UNF- 
ORMATTED， 否 则 为 格式 的 ， 且 必须 选择 FORMATT- 
ED。 

r] 为 整 型 表达 式 ， 是 以 字符 为 单位 的 记录 长 度 。 此 参数 
用 于 直接 存 取 文 件 ， 并 且 要 求 必须 有 此 项 。 

(1 ) 待 选项 彼此 间 的 次 序 是 任意 的 。 

(2 ) 格式 中 的 整 型 表达 式 中 的 变量 ， 必 须 在 此 语句 之 
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前 赋值 。 若 字符 表达 式 为 变量 名 时 ， 也 必须 在 此 语句 之 前 赋 
值 。 
(3 ) 若 部 件 号 U 的 值 为 0， 则 为 键盘 或 显示 器 。 
例 ! CHARACTERe。10 FNAME 
WRITE(。, 7/(A$))“OUTPUT FILENAMEY? / 
READ(。,/(BN,A)') FILENAME 
OPEN (7，FILE= FNAME ，ACCESS= SEDUENTI 
AL'/，。STATUS='NEW“ ) 


这 里 打开 的 文件 名 由 字符 变量 FENAME 的 值 所 决定 ， 与 
之 相连 接 的 部 件 号 为 整 常数 7。 存 取 方 式 为 顺序 的 ， 且 为 一 
个 新 文件 ， 

2. 关 闭 数据 文件 语句 

通过 OPEN 语 句 打开 的 文件 ， 操 作 完 毕 后 必须 进行 善后 
处 理 ， 解 除 文件 和 部 件 之 间 的 连通 关系 。 这 个 工作 由 CLOSE 
语句 来 完成 。CLOSE 语 句 的 形式 是 ， 

CLOSE(U [，STATUS=st] ) 
其 中 ，U 为 整 型 表达 式 ， 与 OPEN 语 句 中 的 说 明 相同 。 这 里 
的 表达 式 U 指 出 的 部 件 号 ， 必 须 是 OPEN 语 名 中 指定 的 部 件 
号 。 

st 为 字符 表达 式 ， 取 值 可 为 KEEP 或 DELETE， 不 选 
择 此 项 ， 则 为 KEEP。 若 指定 为 KEEP， 则 执行 CLOSE 语 
句 后 ， 该 文件 仍然 存在 。 若 指定 为 DELETE， 则 执行 
CLOSE 语句 后 ， 部 件 号 U 所 连接 的 文件 被 出 去 ( 即 不 再 存 
在 ) 。 

在 FORTRAN 程 序 执行 中 所 打开 的 文件 ， 如 果 没 有 明 
依 的 用 CLOSE 语句 关闭 ， 则 主 程序 执行 结束 时 系统 将 自动 
关闭 全 部 打开 的 文件 。 如 象 CLOSE 中 选用 了 KEEP 一 样 ， 
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并 且 将 它们 全 部 保存 。 如 ， 
CLOSE (7，STATUS='“DELETE ) 
CLOSE (NO，STATUS= “KEEP' ) 
CLOSE (1I1) 


8.3 其 它 编辑 描述 符 


在 第 二 章 中 己 经 介绍 了 一 些 常 用 的 格式 编辑 描述 符 
( 即 "、I、F、 了 B、X、H 和 / ) ， 基 本 上 满足 一 般 输入 输出 
格式 的 处 理 。 这 里 将 再 介绍 一 些 格式 编辑 描述 符 的 用 法 。 

1. 字 符 型 量 的 输入 输出 

字符 型 量 的 输入 输出 ， 除 用 编辑 符 和 上 卫 格 式 以 外 ， 还 
可 用 字符 编辑 描述 符 实 现 输入 输出 。 

字符 编辑 描述 符 的 形式 是 ， 

rAw 或 TA 
其 中 ，w 是 字符 个 数 ，r 是 重复 次 数 。 

Aw 编 辑 描述 符 由 字段 宽度 w 决 定 了 字符 输 入 输出 表 项 
的 长 度 。 对 于 输入 ， 若 指定 字段 宽度 w 大 于 或 等 于 输 入 表 项 
的 长 度 时 ， 则 从 输入 字段 中 取 最 右边 的 字符 ， 否 则 以 左 端 对 
齐 ， 不 足 部 分 补 空格 。 对 于 输出 ， 若 指明 的 字段 宽度 ww 大 于 
输出 表 项 的 字符 数 时 ， 则 左 端 输出 w-a ( 输出 表 项 长 度 ) 个 
空格 符 ， 否 则 ， 输 出 表 项 最 左 端的 w 个 字符 。 

对 于 不 带 字段 宽度 w 的 格式 符 A， 则 以 输入 输出 表 项 的 
长 度 为 准 。 

例 2 ”字符 编辑 描述 符 的 应 用 示例 。 

1 CHARACTERKX10 A，Bx<5 

2 WRITE(x<* 人 ，“ (1X，A')“INPUT CHARAC- 
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TERS( -<10) 
READ(CX<， (As)7 )A 
WRITE(Yx，'(A)7)A 
READ(#x,，'(A)7“)B 
WRITE(Y,，' (Al0) 7 ) 了 3 


Do 中 罗 


第 1 个 语句 定义 了 长 度 分 别 为 10 和 5 的 变量 A 和 B。 

第 2 个 语句 要 求 用 A 编 辑 描 述 符 输 出 字符 ,常数 ， 这 里 则 
按 给 出 的 表 项 长 度 输 出 。 

第 3 个 语句 要 求 输入 5 个 字符 并 赋 给 字符 变量 A。' 由 于 说 
明 语 句 中 给 出 字符 变量 A 的 长 度 为 10, . 则 输入 5 个 字符 赋 给 
字符 变量 A 的 最 左 端 ， 后 面 补 5 个 空格 符 。. 如 输入 字符 .“AB 
CDE”， 则 字符 变量 A 的 值 为 : 

ABCDEDDDDD 
10 个 字符 

而 接着 输出 的 记录 与 此 相同 。 

执行 第 5 个 语句 时 ， 要 求 按 字 符 变量 B 的 长 度 输 入 ， 若 
输入 字符 串 为 A1234， 则 执行 第 6 个 语句 的 结果 为 ， 

DA1234 
10 个 字符 

2. 比 例 因子 编辑 描述 符 

比例 因子 编辑 描述 符 的 形式 是 ， 

kP 
其 中 ，k 称 为 比例 因子 ，P 为 编辑 描述 符 标 志 字 符 。 

P 编 辑 描述 符 为 F 和 匡 编辑 描述 符 指 定 比例 因子 ， 直 到 遇 
到 下 一 个 P 编 辑 描述 符 为 止 。 在 每 个 输入 输出 语句 执行 开始 
时 ， 其 比例 因子 设置 为 零 。 比 例 因子 按 下 列 方式 影响 正常 的 
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编辑 
(1) 用 F 和 下 编辑 ( 若 输 入 字段 中 无 指数 ) 输入 以 及 用 下 
编辑 输出 时 ， 它 使 外 部 表示 的 数 等 于 内 部 表示 的 数 匀 以 10“”。 
例如 ， 
READ ( 关 ，“(F5.2,，1PF5.2) 4)X，Y 
12 .34.， 12。34</ 


0 sa 
则 赋 给 X 的 值 为 12.34， 而 赋 给 Y 的 值 为 123.4。 若 有 输出 语 
名 ， 
WRITE(#<，' (ITIX，F5.2， 2X，2PF10.2)7) 
X，Y 
则 可 得 输出 记录 为 ， 
412，34 一 12340。00 
F5 .2 2X 2PFE10 .2 
(2 ) 用 F 和 也 编辑 输入 时 ， 若 输入 字段 中 有 指数 ， 则 比 
例 因 子 不 起 作用 。 
(3 ) 用 瑟 编 辑 输出 时 ， 产 生 的 量 的 基本 实 常 数 部 分 被 
乘 以 105 并 且 指 数 减 去 区。 例如 , 若 内 存 中 A 的 值 为 1256000 
E-… 一 3， 则 用 输出 语句 ， 
WRITE(X 关 ， (1X，1PEI4 7) )》A 
显示 的 结果 为 1 .2580000 下 十 02 
1 
3. $、BN 和 BZ 编 辑 描 述 符 
(1)BN 和 3B2Z 编 辑 描述 符 
BN 和 BZ 编 辑 描述 符 用 于 解 帮 数 值得 入 域 中 的 空 败 符 。 
在 每 一 个 输入 输出 语句 并 始 执 行 寺 ， 均 胃 为 82， 它 使 得 除 
*。，150“。 


打头 空格 外 的 空格 符 都 作为 零 处 理 。 如 果 格 式 控制 程序 处 理 
一 个 BN 编 辑 描述 符 , 则 在 后 面 输入 域 中 的 空格 被 护 过 ,直到 
处 理 完 一 个 BN 为 止 ， 掠 过 空格 的 效果 是 把 输入 域 中 所 有 空 
格 字 符 好 象 右 对 齐 一 样 来 处 理 。 即 打头 的 空格 数 等 于 掠 过 的 
空格 数 。 如 ， 
READ( 关 ， (1I4，1I5 )7 ) IX，IY (1) 
READ(#x，“(BZ，I4，1I5) 7 ) IX,IY (2) 
READ(x，'(BN，I4, I5)“)IX,IY (3) 
若 输入 记录 为 ， 
呈 1 一 2 吃 呈 二 23</ 
则 语句 (1) 和 (2 ) 将 得 到 一 样 的 结果 ， 即 ， 
IX= 王 102，IY 王 23 
而 语句 (3 ) 得 到 的 值 为 ， IX=12，IY=23， 即 空格 不 起 作 
用 。 
(2 ) 美元 符号 编辑 描述 符 
在 设计 输入 输出 编辑 格式 控制 程序 时 ， 往 往 是 格式 控制 
程序 结束 ， 则 导致 当前 记录 的 数据 传输 也 随 之 而 结束 ， 如 果 
格式 控制 程序 遇 到 的 最 后 一 个 编辑 描述 符 是 美元 符 $ 时 ， 则 
它 将 自动 地 禁止 记录 结束 ， 而 允许 后 面 的 输入 输出 语句 继续 
读 或 写 同一 记录 。 它 通常 被 用 于 键盘 输入 语句 前 提示 信息 的 
输出 ， 使 得 用 户 输入 的 信息 与 提示 信息 位 于 同一 行 上 。 例 
如 : 
WRITE(x*，'“ (1IX，A$) )“INPUTFILEN 
UMBER 二 / 
READ(x，'“(BN，Il2)*)N 
执行 这 里 的 输出 语句 时 ， 则 按 指 定格 式 说 明 在 屏幕 上 显 
示 信 息 ， 
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INPUT FILENUMBER= 

由 于 输出 格式 说 明 的 最 后 一 个 编辑 描述 符 是 $， 所 以 ， 
使 得 输出 记录 未 结束 ， 因 而 后 面 的 输入 记录 将 在 输出 记录 之 
后 的 同一 行 上 显示 出 来 。 输 入 文件 部 件 号 ，2</ 则 显示 信息 
如 下 : 

INPUT FILENUMBER= 王 一 2-/ 


8.4 文件 的 输入 输出 


上 节 中 所 使 用 的 OPEN 语 句 和 CLOSE 语句 ， 它 们 只 能 
为 文件 的 操作 提供 必要 的 信息 和 善后 处 理 。 要 将 信息 存放 到 
文件 中 或 从 文件 中 读 出 信息 都 必须 通过 I/O 语 名 方 可 达到 目 
的 。 下 面 将 分 别 介绍 I/O 语 句 及 其 应 用 。 


8.4.1 输入 输出 语句 


1. 输 入 语句 
输入 语句 主要 用 于 从 输入 设备 上 或 外 部 设备 上 的 文件 中 
输入 所 需要 的 数据 。 
输入 语句 的 形式 是 ， 
READ(U[，fm] [〔，REC=rn] 〔【，END= 
slI] 〔【，ERR=s] )ILIST 
其 中 ，U 为 整 型 表达 式 ， 表 示 部 件 号 ， 其 值 为 已 打开 文件 的 
部 件 号 。 它 必须 作为 第 一 个 参数 出 现 。 
fm 为 格式 说 明 符 ， 若 为 格式 读 ， 则 必须 作 为 第 二 个 参 
数 出 现 。 其 值 可 分 为 ， 
(1 ) fm 为 格式 语句 的 标号 。 
(2 ) fm 为 通过 赋 标 号 语句 ASSIGN 赋 给 格式 语句 标号 


。152。 


竟 整 型 变量 。 

(3 ) fm 可 用 直接 的 格式 编辑 字符 申 所 替换 ， 其 形式 
为 ， 

“( 格式 编辑 字符 串 》)“ 

rn 是 一 个 整 型 表达 武 ， 为 直接 文件 存 取 时 使 用 ， 其 值 代 
表 存 取 的 记录 号 。 如 果 没 有 REC= rn 选择 项 ,: 则 :从 文件 的 
当前 记录 位 置 顺序 向 下 读 。 

sl 为 任 选 的 语句 标号 ， 当 读 到 文件 结束 记录 时 ， 岂 转 到 
指定 的 语句 标号 处 继续 执行 。 若 没有 此 项 选择 ,， 则 读 到 文件 
结束 记录 时 会 产生 运行 错误 而 终止 程序 的 执行 。 

s 是 任 选 语句 标号 。 当 在 输入 过 程 中 产生 错 误 时 ， 则 转 
移 到 标号 为 s 的 可 执行 语句 继续 执行 。 若 无 此 项 ， 则 输入 过 
程 中 产生 错误 时 会 发 生 运行 错误 ， 且 终止 程序 的 运行 。 

ILIST 是 输入 变量 表 。 

2. 输 出 语句 

输出 语句 主要 用 于 将 计算 机 处 理 好 的 信息 传送 到 指定 的 
设备 上 或 指定 外 部 设备 的 文件 中 。 

输出 语句 的 形式 是 ， 

WRITE(U [，fm] 〔， ERR=s] 〔[，REC= 
rn] ) OLIST 
其 中 ，U 为 一 个 整 型 表达 式 ， 且 必须 作为 第 一 个 参数 出 现 。 

fm 是 格式 标识 符 ， 对 格式 输出 来 说 ， 它 必须 作 为 第 二 
个 参数 出 现 。 

$ 为 任 选 语句 标号 ， 当 在 输出 的 过 程 中 产生 错误 时 , 则 转 
移 到 指定 的 语句 标号 处 继续 执行 。 

fr 为 一 个 整 型 表达 式 ， 只 有 使 用 直接 文 件 时 才 选 择 此 
项 ， 输 出 就 从 记录 号 为 rn 的 位 置 开 始 输出 。 对 于 直接 存 取 文 
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件 来 说 ， 如 果 省 略 REC= rn 选择 项 ， 则 从 文件 的 当 前 记录 
开始 连续 向 下 写 ， 
OLIST 是 输出 变量 表 。 


8.4.2 顺序 文件 的 建立 和 检索 


顺序 存 取 文 件 又 称 为 SAM 文 件 ， 它 是 SEQUENTITIAL 
ACCESS METHOD 的 缩写 。 

顺序 存 取 意 味 着 必须 按 记 录 的 自然 顺序 进行 存 取 ， 即 从 
第 一 个 记录 开始 ， 中 间 不 允许 跳 过 任何 记录 ， 只 能 二 个 一 个 
地 依次 进行 。 

“按照 顺序 存 取 方 式 打开 的 文件 是 自动 定位 的 。 当 在 OP- 
EN 语句 中 指定 ACCESS='SEQUENTIAL “或 省 略 此 项 
时 ， 则 文件 定位 指针 指向 第 一 个 记录 的 开始 处 。IXO 语句 必 
须 首 先 对 第 一 个 记录 进行 存 了 到， 然后 第 二 个 ， 第 三 个 …， 依 
此 类 推 ， 直 到 处 理 完 最 后 一 个 记录， 遇 到 文件 的 结束 记录 
村 ,才能 结束 对 该 文件 的 存 取 。 

例 3 建立 一 个 顺序 文件 
CHARAETER%YD FNAME 
DIMENSTDN At100) 
NRTTE《#%， (INFUT UNIT=3)》 7) 
READ (# (TS N 
RETTE( 人 区 训 )》 “TNFPUT 下 ILENAME=， 
READ (#， (CBN G) ) FNAME 
OPEN INIFILE=FNGME ,STATUS= ' NEW )、 
DO 1 TI=i1ytoo 

1 全 (T) = 了 
WRITE CNY20) 《AtT) TI=1i1oQ) 


了 2 总 FORMAT ELOFG。 IIy) 
尼 L 呈 SEND) 
END Re 
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执行 这 个 程序 时 ， 将 分 别 担 示 输入 部 件 号 和 文件 名 。 这 
时 可 从 键盘 上 输入 部 件 号 和 文件 名 。OPEN 语 句 打开 一 个 顺 
序 存 取 方 式 的 文件 ， 即 ACCESS=“SEQUENTIAL'， 格 
式 FEORM<=' 开 DORMATTED4， 其 状态 值 为 “NEW” (这 
意味 着 要 建立 一 个 新 文件 ) 。 由 循环 语句 形成 记 盘 的 数据 并 
存放 于 实 型 数组 A 中 ， 然 后 再 由 写 语句 的 格式 决定 每 个 记录 
为 10 个 数据 ， 数 据 字段 宽度 为 6 个 字符 ， 将 数组 A 的 元 素 蝗 
序 地 写 入 文件 中 。 当 程序 运行 结束 后 ， 可 用 操作 系统 的 编辑 
程序 显示 所 建立 的 数据 文件 ， 也 可 用 编辑 程序 进行 编辑 。 
。 注 ， 这 里 所 说 的 显示 、 编 辑 数据 文件 是 对 格式 记录 的 文 
件 来 说 的 。 对 于 非 格式 的 数据 文件 不 能 这 样 操作 。 
下 面 的 数据 是 已 建立 的 数据 文件 的 记录 ， 
1.0 ,2.0 3.0，4.0 5.0 6.0 7.0 80 9.0 .10.0 
11.0 12.0 13.0 14.0 15.0 16.0 17.0 18.0 19.0 2 
21.0 22.0 23.0 24.0 25.0 26.0 27.0 28.0 29.0 30.0 
31.0 32.0 33.0 34.0 35.0 36.0 37.0 38.0 39.0 40.0 
41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0 49.0 50.0 
51.0 52.0 53.0 54.0 55.0 56.0- 57.0 58.0 59:0 :4600 
61.0 62.0 63.0 64.0 65.0 66.0 67.0 68.0 .69.0 70.0 
71.0 72.0 73.0 74.0 75.0 76.0 77.0 78.0 79.0 80.0 
81.0 82.0 83.0 84.0 850 86.0 87:0 88.0 89.0 90.0 
91.0 92;0 93.0 94.0 95.0 96.0 97.0 98.0 99.0 100.0 


要 将 已 经 建立 的 数据 文件 中 的 数据 读 入 到 内 存 使 用 ， 必 
须 用 读 文件 的 操作 来 实现 。 对 于 格式 顺序 文件 来 说 ， 用 什么 
稿 式 来 建立 就 只 能 用 什么 阁 式 来 读 。 

例 4 读 出 上 面 数 据 文件 稻 瞧 容 。 
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CHARACTERx1O CH 
DIMENSION B(100) 
WRITE 《xs (CA 相 )“) “INPUT UNIT= 
READ《x， (BEN ISSN 
WRITEX， (AR 直 ) ) “TNFUT FILENAME= 
READ (< (BN;A)“)》 CH 
OPEN LN,FILE=CH) 
READ(N:10END=20) 《BIT) TI=1100)7/ 
10 FORMAT(1OF4。1TL) 
20 WRITE (xy1o) (BOI) TI=1100) 
CLOSE(N) 
END 


如 果 要 修改 顺序 文件 ， 则 必须 将 它 的 全 部 数据 读 入 内 存 
进行 修改 ， 然 后 ， 将 修改 后 的 数据 重新 存盘 ， 建 立 一 个 新 文 
件 。 成 功 之 后 ， 则 可 遇 去 原始 文件 ， 保 留 新 建 的 文件 。 也 可 
一 边 读 记 录 ， 判 断 找 出 应 修改 的 数据 将 其 修改 ， 然 后 存 入 磁 
盘 。 也 可 达到 修改 的 目的 。 


8.4.5 直接 文件 的 建立 和 检索 


直接 文件 是 由 OPEN 语 句 中 ACCESS=“ DIRECT“ 选 
择 项 来 决定 的 。 作 为 直接 文件 还 必须 有 RECL=r1 选 择 项 ， 
由 它 决定 记录 的 长 度 ， 且 每 个 记录 的 长 度 相 同 。 这 样 打开 的 
文件 又 称 为 随机 存 取 文 件 。 由 于 这 种 文件 可 按 记 录 号 进行 任 
意 存 取 ， 不 涉及 记录 号 的 顺序 ， 因 此 使 用 起 来 方便 。 

例如 ， 一 个 单位 的 工资 信息 、 人 事 档案 信息 等 就 是 属于 
这 种 记录 长 度 相 同 的 信息 ， 因 此 在 处 理 这 些 信息 时 ， 尤 其 适 
合 于 使 用 直接 文件 进行 存 取 。 

例 5 直接 文件 的 建立 。 
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DIMENSION At1O10)》 
WRITE(#， (9) ) UNIT=37 9 

关 ERCORD LEN=3( 人 =10)， 

WRITE(#， (AN) ARRAY BOUND (MIN<=10) 和 
READ xy， (4IS))》 NOLEN MIN 
WRITE(#， (FILENAME  “， 

#'，IS DIRDATA.TEXT '  …) ) 

LEN1=LEN#S5+1 

OPEN(NO ,FILE= 'DIRDATA.TEXT ' ,ACCESS= 

# DIRECT ' ,STATUS= NEW ;FORM= FORMATTED 
#yRECL=LEN1 》 

DO 20 J=lyM 

DO 10 TI=dyN 
(JIT)=I+tOx(IJ~1) 


10 CONTINUE 
WRITE(NO, (1oOFS5.D) REC=J) 
兴 《AI TI) ,TI=1N) 
20 CONTINUE 
CLOSE(NO) 
EN 


用 这 一 程序 可 以 建立 一 个 直接 格式 文件 ， 记 录 长 度 由 
LEN 所 决定 ， 且 LEN 和 10。 当 LEN= 10 时 ， 则 每 个 记录 可 
存放 10 个 四 字 节 的 实 型 数据 ， 用 记录 长 度 LEN1I= LENx5 
十 1 得 到 记录 长 度 的 字 节 数 为 51 字 节 (注意 , 格式 记录 长 度 
包含 一 个 字 节 的 记录 结束 符 ) 。 由 于 记录 是 格式 的 ( 即 以 字 
符 形式 写 入 ) ， 所 以 可 以 用 文本 显示 命令 或 文本 打印 命令 将 
文件 的 内 容 显示 在 屏幕 上 或 打印 在 宽 行 纸 上 ， 以 便 检 查 。 

现在 用 操作 系统 的 编辑 程序 显示 建立 的 文件 内 容 如 下 ， 


。，157。， 


8. 9 10. 
18. 19.。 20。 
28. 29. 30. 
38. 39. 40. 
48， 49.， 50. 
58、 59. 60。 
68， 69， 70. 
78， 79. 80. 
88.，89. ，90。 
98、 99,， 100， 

# 
也 可 以 用 一 个 程序 


2 3 -8 

1 12， 13 14 15， 16. 17. 

2!. 22. 23， 24. 25， 26. 27. 

3L， 32， 33 34 835 36. 37. 

41.、 42. 43. 44. 45， 46. 47.， 

5!.、 52. 53. 54. 55 56. 57. 

61。 62。 63. 64。 65.。 66. 67， 

人 

81， 82， 83.， 84. 85. 86， 87， 

91。 92， 93。 94.， 95.。 96,， 97. 

对 于 上 面 建立 的 直接 格式 数据 文件 ， 

来 读 文 件 的 内 容 。 

例 6 检索 直接 文件 的 记录 。 
DIMENSION Atioy1o0) _ 
内 RTTE( 关 ， (人 )“) “UNIT= 了 "9 


光 “ERCDRD LEN=? 人 =D)“ 


WRITE(#，(G) ) 
READ (xy 15) NO,LEN:M,N 


WRITE (#, (ttX FILENAME 
#% ITIS DIRDATA。TEXT “) )》 


LEN1=LENXx5+1 
OPEN《ND,FILE= 'DIRDATA.TEXT ,ACCESS= 
汉 :DIRECT FORM= FORMATTED ;RECL=LEN1) 


DO 410 JJ=liM 
READ (NO 20 ;REC=I) 


CaNTINUE 


FODRMAT (41 本) 


FORMAT (1OF5.O) 
.DFPEN(1OO ,FILE= CONSDLE:')》 
WRITE(100， (1Xs1OF6.O) ) 


兴 (GT IJ=1sN) 5I=tsM) 


END 
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ARRAY EBQUND (MIN<=1O) 


(AI J) JJ=LyN) 


程序 中 第 一 个 OPEN 语 句 打 开 的 是 一 直接 文件 ， 这 里 省 
略 了 STATUS=“OLD“ 选择 项 ， 由 于 预 置 值 为 UNEORM- 
ATTED、OLD， 所 以 必须 选择 FORM=′ FORMATT- 
ED' 。 于 是 DIRDATA .TEXT 文件 就 被 指定 为 一 个 已 存在 
的 直接 格式 文件 ， 它 与 部 件 号 10 相 连接 。 

第 二 个 OPEN 语 句 打 开 的 是 设备 文件 CONSOLE，( 即 
控制 台 文件 名 ， 实 际 上 用 星 号 字符 “ 关 ” 就 可 以 了 ) ， 也 可 
用 打印 机 文件 名 PRINTER ， 代替， 从 而 实现 与 打印 机 的 连 
接 。 语 句 中 省 略 了 “ACCESS=”、“FORM =” 和 
“STATUS=” 三 个 选择 项 ， 由 OPEN 语 句 预 置 值 可 知 ， 
CONSOLE， 是 一 个 已 存在 的 顺序 格式 文件 。 它 与 部 件 号 
100 连 接 在 一 起 。 执 行 WRITE 语 名 时， 则 将 结果 显 示 出 来 ， 
如 下 所 示 ， 


程序 中 没有 用 CLOSE 语句 关闭 DIRDATA .TEXT 和 
CONSOLE : 两 个 文件 。 程 序 执 行 完毕 后 文件 自动 关闭 ， 其 
STATUS='KEEP' 。 

四 159 @- 


8.4.4 格式 文件 的 建立 和 修改 


格式 文件 是 由 格式 记录 构成 的 ， 它 既 适 合 于 顺序 文件 也 
适合 于 直接 文件 。 格 式 文件 是 由 OPEN 语句 中 FORM= 
“FORMATTED“ 选 择 项 所 决定 的 。 若 打开 的 文件 为 顺序 存 
取 方 式 ， 则 可 省 略 此 项 。 格 式 文件 是 一 种 应 用 很 广泛 的 数据 
文件 。 

例如 :， 我们 要 建立 一 个 通讯 录 文 件 ， 就 可 以 采用 格式 记 
录 ， 为 了 便于 文件 的 操作 ， 最 好 选用 直接 存 取 方 式 。 

例 7 ”建立 一 个 通讯 录 文 件 。 

没 姓 名 为 NAME， 人 性 别 为 SEX， 年 龄 为 YEAR， 通 讯 
地 址 为 ADDRES， 电 话 为 TEL 。 其 程序 如 下 ， 


人 RE SEXX4， YEARx4 
DDRES#3O， TELX%416， FN#1O 、 


人 ) ENTER FILENAME=， 
READ (# (CBN A)  )》 FN 
OFEN(10 ,FILE=FN,ACCESS= DIRECT ， 
# STATUS= :NEW ' ;FORM= FORMATTED '， 
共 RECL=6S) 
TI=1 。 
10 WRITE (# (AN) ) ENTER NAME=3<1- 生 CHAR>， 
READ (#， (各 )“)》 NAME 
IFCNAME。EQ。') 60TO 50 
WRITE(#， (A) )》 “ENTER SEX=% 关 
READ( 关 ，“( 台 )“) SEX 
WRITE (#，(G)) ENTEF YEAR=2?x1-S CHAR> 
READ(X#， (A)“) YEAR 
WRITE(#， 《9) “ENTER ADDRESS=? 
类 3 CHAR2 
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READ ( 关 ，”( 台 )“)》 ADDRES 
WRITE(#， (A) “ENTER TELEPHONE " ， 
并 CHAR 
READ(X<” (A)“》 TEL 
WRITE《1OY2DREC=T) NAME， SEX， 
愉 YEAR ，: ADDRESi TEL 
TIT+1| 
GDTO 1 
人 2 FDRMAT (A 呈 A4 4 630， Ale) ) 
与 9 CLOSE《LO) 
END 


执行 这 个 程序 时 ， 系 统 将 首先 提示 输入 文件 名 ， 然 后 按 
照 程序 的 执行 顺序 输入 姓名 、 性 别 、 年 龄 、 通 讯 地 址 和 电 
话 。 若 录入 的 姓名 的 值 为 字符 “9O”， 则 表示 输入 信息 结 
束 ， 否 则 将 继续 输入 以 后 的 各 项 信息 。 于 是 可 生成 下 列 记 录 
形式 的 文件 ， 


XXXX XXXX XXXX XXX X XXX 
-一 一 
NAME SEX YEAR ADDRES TEL 


对 于 上 面 所 建立 的 通讯 数据 文件 ， 可 对 其 中 的 任何 一 个 
“记录 进行 修改 。 从 这 一 点 来 说 ， 显 然 比 顺序 文件 的 修改 更 为 
方便 ， 只 要 给 出 某 个 记录 号 ， 就 可 将 这 个 记录 的 全 部 信息 读 
入 内 存 进行 处 理 。 对 记录 中 的 字段 还 可 指定 要 修改 的 字段 编 
号 。 
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世 吃 


例 8 


兴 


其 


其 


修改 通讯 录 数 据 文件 ， 


CHARACTER NAMEY 晶 SEXX4。， YEARX4 
全 了 耻 RES 其， TEL FNX1C3 CoND ， CONDY 
友 民 工 TE《 关 。 《8 可 )，) “ENTER FILENAME=， 
只 三 AD ( 共 ， (CBN 》 FN 
OPEN(20 ETLE=FN GCCESS= DIRECT 
FORMN= ， FORMATTED， RECL= 3) 
负 民 工 了 世 《 共 《有 本 ) 》 DO YOUD EDPIT 
PDMMUNICATION FILE 33YZN> 
愉 已 台 D 1X，CRBNA COND 
TFLCGND.EB。'Y…) THEN 
网 民 工 了 TEE《( 基 ， (有 )) “ENTER THE “9 
NUMBER DF RECORD= 
三 及 站 (二 人 BN TS 》 工 
REGD (2D 4DREC=T》 NAME，SEX 
YEAR， ADDRES ,TEL 


WRITE(x BDINAME SEXYEAR,ADDRES TEL， 


贡 民 ITE《 共 9 《有 本)”)》 “ENTER. THE 

” NUMBER OF TERMST 号 > 一 
READ XIDRN TI2)“) N 
GDT9O (1 2 汪 435) RN 
GQTD 7 
册 RTITE 《XGA)》“)》 “NAME= “NAME 
READ ( 关 ， ( 台 )“)》 NME 
全 口 T 口 59 
WRITE( 关 ，” (有 人) “SEX= “SEX 
READ ( 共 ， 《后 )“) SEX 
GDTO SO 
WRITE ( 关 ， ”全 )“)》 “YEAR= “YEAR 
READ ( 兰 *”《)“) YEAR 
和 DTD 号 局 


色 RITE《X， 《人 )") “ADDRESS= “ADDRES 


READ ( 关 ， 【《 AN) ) 有 DDRES 
全 品 了 昌 总 


芭 R 工 TE《 关 ， 【《 全 后 )“》 “TELERPHDNE= “TEL 


愉 菇 全 站 5 共 。”《)“) TEL 
RNRITE( 基 (让 本) 》 “DB YDU “， 
”CQNTINUE。。。 3SYZN2> 
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READ(#， (BN NA) 》 COND1 
IF (COND1i .EGG Y) SODTQ aaD 
WRITE (204DREC=T) NAME， 
# SEX，YEAR，ADDRES，TEL 
GOTO 30 
40 FORMAT (ABR4 4 A30，A16) 
ENDIF 
70 CLOSE《20》 


go FORMAT《 1。“ 从， 人。“ 了。 


共 有 4。“ 4 有 三。 ) 
STDP 
END 
这 个 程序 被 执行 时 ， 首 先 将 要 修改 的 记录 读 入 ， 然 后 对 
指定 的 项 进行 修改 。 


8.4.5 无 格式 文件 的 建立 和 检索 


无 格式 文件 是 由 无 格式 记录 组 成 的 。 

打开 无 格式 文件 是 在 OPEN 语 句 中 选择 FORM= “UN- 
FORMATTED“ 来 实现 的 。 只 要 按 这 种 方式 打开 的 文件 ， 
在 使 用 输入 输出 语句 时 就 不 能 选择 im 项 。 这 时 的 输入 输出 语 
名 为 ， 

READ(U [，REC=rn] [，END=sl] 〔[，ERR 
一 s】 ) ILIST 

WRITE (U 〔[，REC=ra] 【，ERR=S] ) OLIST 

无 格式 文件 的 记录 是 二 进 制 格式 的 ， 用 选择 项 FORM 王 
“UNEFORMATTED- 即 按 二 进 制 格式 进行 存 取 。 也 就 是 说 ， 
系统 是 严格 按 黑 计算 机 内 部 的 二 进 制 位 进行 存 取 的 。 如 果 在 
写 文件 时 用 的 是 无 格式 ， 则 读 入 信息 也 必须 按照 无 格式 进行 
操作 。 
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无 格式 文件 对 顺序 存 取 方 式 或 直接 存 取 方式 都 是 适用 
的 。 在 OPEN 话 句 中 ， 一 是 选择 ACCESS=“SEQUEN 
TIAL“， 或 者 省 略 该 项 。 而 另 一 种 则 是 选择 ACCESo9= 
“DIRECT 。 前 者 表示 顺序 存 取 方 式 ， 而 后 者 表示 直接 存 取 
方式 。 当 为 直接 存 取 方 式 时 ， 省 略 “FORM=” 这 项 ， 则 表 
示 为 无 格式 记录 的 文件 。 

对 于 无 格式 文件 只 能 在 磁盘 或 磁带 上 进行 存 取 ， 不 能 在 
顺序 设备 上 进行 操作 。 如 ， 显 示 器 、 打 印 机 都 不 能 直接 显示 
或 打印 无 格式 文件 ， 因 为 它们 都 是 顺序 格式 的 设备 。 

在 存 取 无 格式 文件 时 ， 由 于 是 按 机 内 格式 存 取 ， 所 以 不 
需要 进行 任何 转换 。 对 于 实 型 变量 按 四 字 节 存 取 ， 对 于 站 型 
变量 则 按 二 字 节 存 取 ， 而 对 于 一 个 字符 则 以 一 字 节 为 单位 进 

我 们 以 下 列 两 个 程序 为 例 ， 说 明 无 格式 文件 的 用 法 。 

例 9 无 格式 文件 的 建立 。 


DIMENSITON 全 ( 寺 招 ， 1 站 》 
DDFEN 《LS FILE= FIN ACCESS= DIRECT 
X 呈 TATUS= NEW ,FORM=， UNFORMATTED 
兴 4 RECL=4) 
Do 0 Ti yt 
了 日 1 已 Jsi， 1 心 
At(Tyq)=1Ox (IT- -1)+4d 
10 CONTINUE 
WRITE YL SREC=I) (TI J) =lyloO) 
20 CONTINUE 
END 
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执行 这 个 程序 将 建立 一 个 直接 文件 ， 以 无 格式 记录 形式 
打开 ， 并 且 以 二 进 制 记录 为 存 取 单 位 ， 没 有 记录 结束 标志 ， 
同样 也 没有 文件 结束 标志 。 

我 们 从 前 面 已 经 知道 ， 直 接 文件 的 存 取 以 块 为 单位 进 
行 。 在 UCSD PASCAL 操 作 系统 下 ， 外 存 的 一 块 可 以 存放 
512 个 字 节 的 信息 。 对 于 磁盘 来 说 ， 正 好 是 相 邻 的 两 个 扇 区 ， 
每 次 与 磁盘 进行 信息 存 取 ， 总 是 512 个 字符 。 所 以 ， 直 接 存 
取 文 件 必须 建立 在 块 设 备 上 。 

下 面 是 以 无 格式 记录 形式 读 直接 文件 ， 记 录 长 度 同 存 入 
时 相同 ， 并 且 将 文件 的 数据 从 打印 届 上 输出。 

例 10 无 格式 文件 的 输出 。 


DIMENSION At1010) Bti0,10)》 
OFEN(1OyFILE= NACCESS= ， DIRECT 
#STATUS= 'DLD， ;FORM= UNFORMATTED  ， 
#RECL=40) 
DO 100 T=1y10 
READ (1DsREC=T) 《(T9) =1y1o0) 
100 ”CONTINUE 
DPEN(4304:FILE= PRINTER:)》 
WRITE(SO (A)“) “UNFORMATTED RECORDS， 
WRITE(SOyiO) (CT J) =lytioO) TI=1ydiO) 
10 FORMAT《1X LOFG。tL) 
END 


执行 时 ， 从 打印 机 上 输出 结果 如 下 ， 
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UNFORMATTED RECORDS 

t.0 2.0 3.0 4.0 5.0 6.0 ?7.0 8.0 9.0 10.0 
tt.0 12.0 13.0 14.0 15.0 16.0 17.0 18.0 19.0 20.0 
21.0 22.0 23.0 24.0 25.0 26.0 27.0 28.0 29.0 30.0 
31.0 32.0 33.0 34.0 35.0 36.0 37.0 38.0 :39.0 40.0 
41.0 42.0 43.0 44.0 45.0 46.0 47.0 48.0 49.0 50.0 
51.0 52.0 53.0 54.0 55.0 56.0 57.0 58.0 59.0 60.0 
61.0 62.0 63.0 64.0 65.0 66.0 67.0 68.0 69.0 70.0 
71.0 72.0 ;3.0 74.0 75.0 176.0 77.0 78.0 79.0 80.0 
81.0 82.0 83.0 84.0 85.0 86.0 87.0 88.0 89.0 30.0 
914.0 92.0 93.0 94.0 95.0 396.0 97.0 98.0 99.0 100.0 


8.4.6 外 部 文件 和 内 部 文件 


外 部 文件 就 是 指 存储 于 外 部 存储 介质 上 的 文件 和 外 部 疫 
备 本 身 ， 和 操作 系统 中 所 使 用 的 外 部 命令 是 同一 个 意思 。 那 
里 所 指 的 外 部 命令 是 一 些 可 装 入 内 存 中 执行 的 程序 ， 而 这 里 
所 指 的 外 部 文件 ， 包 括 那 些 由 用 户 生 成 的 程序 ( 可 执行 的 或 
不 可 执行 的 ) 和 可 顺序 或 直接 存 取 的 数据 文件 。 又 可 将 这 些 
存 于 外 部 存储 器 上 的 数据 文件 称 为 外 部 数据 文件 。 它 们 都 用 
OPEN、READ 和 到 RITE 等 语句 对 文件 进行 操作 ， 且 都 以 
记录 为 单位 进行 存 取 。 

本 章 前 几 节 建立 的 数据 文件 都 属于 外 部 文件 。 

内 部 文件 是 内 存 中 的 一 个 字符 变量 ， 数 组 、 字 符 数 组 元 
素 。 它 只 有 一 个 记录 ， 其 长 度 与 字符 变量 或 字符 数组 元 素 的 
长 度 相 同 。 内 部 文件 只 能 是 格式 化 的 顺序 存 取 文 件 。 

使 用 内 部 文件 ， 可 将 读 入 的 字符 变量 的 字符 转换 为 数字 
的 、 罗 辑 的 或 字符 的 值 : 将 写 出 的 字符 变量 的 字符 值 转换 为 
它 的 字符 形式 . 

例如 ,字符 变量 A=“1.234 一 86.45' , 读 出 为 1.234、 一 
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86 .45 并 分 别 存放 到 实 型 变量 X、Y 中 ， 将 X 和 立 相 加 送 入 实 
型 变量 Z 中 ， 再 将 实 型 变量 Z 的 值 用 写 内 部 文件 的 方 式 写 入 
字符 变量 B 中 。 其 程序 与 执行 时 输出 的 结果 如 下 ， 


CC 友 XAMPFLE OF INTERNAL FILE I7D。 
人 CHARACTERXLTL 三 9 及 


= 1.234-86.45 

READ 2) XY 
之 下 DORMAT FS。 呈 Fo。2)》 

Z=X+Y 
WRITE(B， (FFC 2) )》 工 
WRITE (#， 《tiX3G) 已 | 
WRITE(#， FISS)  ) Z 
END 

一 85.22 〈 字 符 变 量 B 的 值 ) 

一 85.216000 〈 实 型 变量 Z 的 值 ) 


8.5 文件 定位 语句 


在 FORTRAN 语 言 中 ， 有 三 个 文件 定位 语 名 ， 它 们 是 
BACKSPACE 语 句 、ENDEFILE 语 句 和 REWIND 语 句 。 

文件 定位 语句 用 于 顺序 存 取 文 件 的 定位 操作 。 下 面 将 分 
别 介 绍 这 三 个 语句 。 

1.BACKSPACE 语 名 

BACKSPACE 滞 句 使 连接 到 指定 部 件 的 文 件 被 定位 于 
前 一 记录 的 开始 处 。 

BACKSPACE 语 名 的 形式 为 ， 

BACKSPACE (人 (UNIT 一 SPEC) 
其 中 : UNIT 一 SPEC? 为 所 要 求 的 外 部 数据 文 件 的 部 件 识 
别 符 。 
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如 果 没 有 前 一 个 记录 ， 则 文件 的 位 置 不 改变 。 如 果 前 一 
记录 是 文件 结束 记录 ， 则 文件 被 定位 于 文件 结束 记录 之 前 。 
如 果 文 件 的 位 置 在 记录 的 中 间 ， 则 BACKSPACE 滞 句 重新 
定位 于 该 记录 的 开始 。 如 果 文 件 是 二 进 制 文件 ， 则 BACK- 
SPACE 语 名 重新 定位 于 前 一 字 节 。 

2.ENDFILE 语 句 

ENDFILE 语 句 对 指定 部 件 所 连接 的 文件 写 一 个 文件 结 
束 记 录 ， 作 为 该 文件 的 下 一 个 记录 。 

ENDFILE 语 句 的 形式 是 ， 

ENDFILE (UNIT 一 SPECy》 

其 中 ，(UNIT 一 SPEC? 为 所 要 求 的 外 部 数据 文件 的 部 件 识 
别 符 。 

执行 ENDEFILE 语 名 将 定位 指针 指向 文件 结束 记录 之 后 
的 位 置 。 如 果 还 要 对 该 文件 进行 操作 ， 则 必须 执行 BACK- 
SPECE 或 REWIND 语 句 后 才能 对 该 文件 进行 数据 的 存 取 。 

注意 ,在 直接 存 取 文 件 上 进行 ENDEFILE 操 作 时 ， 将 使 
写 在 新 文件 结束 以 外 位 置 上 的 全 部 记录 丢失 。 

3.REWIND 语 句 

REWIND 语 句 使 文件 的 定位 指针 指向 指定 文件 的 起 始 
位 置 。 
REWIND 语 句 的 格式 为 ， 

REWIND (UNIT 一 SPEC) 
其 中 (UNIT 一 SPEC) 为 所 要 求 的 外 部 数据 文件 的 部 件 识 
别 符 。 

以 上 所 描述 的 三 个 文件 定位 语句 ， 除 了 用 于 顺序 文件 
外 ， 也 可 根据 需要 用 于 直接 文件 的 存 取 。 但 对 于 直接 文件 的 
存 取 一 般 可 用 记录 号 ， 除 非 在 存 取 直 接 文件 记录 时 不 用 记录 


。， 168。 


号 ， 才 能 用 定位 语句 来 处 理 。 

在 定位 语句 中 ， 如 果 部 件 识 别 符 是 一 个 整 型 变量 ， 则 必 
须 用 圆 括号 “(” 和 “) ” 括 起 来 。 

例 11 利用 定位 语句 定位 记录 。 


REAL 有 (5, 与 ) , 忆 (，5) 
DO 1O IT=t1 5 
DO 1D Ji 号 
全 (CT 可) =55+T+dJ 一 
10 CQONTINUE 
OPEN 2 FILE=”FN ACCESS='SEBQUENTIAL  ， 
#STATUS= NEW ) 
WRITE (2 SO ((G(T JI) dd=1 5) TIT=1 5S) 
ENDFILE 
REWIND 2 
READ (2 (5F4.0) END=20) 
#{ (BT IJ) = 5) TI=1) 5) 
20 WRITE (#y40) 《(B(T II) Js=l 5) ,TI=1 5) 


CLDSE (2) 

半 眉 FORMATISF4。 已 ) 

分 总 FORMAT 1LX SFS5。 心 ) 
END 


执行 这 个 程序 时 ， 建 立 一 个 格式 顺序 文件 ， 共 存放 5 个 
记录 ， 每 个 记录 5 个 数据 段 。 当 记录 存 完 后 ， 在 文 件 的 未 尾 
写 一 个 文件 结束 记录 。 这 时 ， 该 文件 共有 六 个 记录 ， 文 件 定 
位 指针 指向 文件 结束 记录 之 后 。 后 面 的 READ 语 句 则 是 从 该 
文件 中 读 出 数据 ， 放 在 数组 B 中 。 因 此 ， 必 须 将 文 件 的 定位 
指针 指向 该 文件 的 起 始点 才能 读 到 正确 的 数据 。 于 是 必须 在 
READ 语 句 之 前 执行 REWIND 语 句 。 输 出 的 数据 如 下 ， 

6.， 了 5 8 . 9。 10。 
汪 8 。 9 -1057 -15 
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人 
9.。 10.， It。 12。， 13。 
10.、 11. 12。、 13， 14。 
如 果 贺 退 一 个 记录 ， 则 可 用 BACKSPACE 语 句 ， 上 例 
中 可 将 RE WIND 语 句 肌 去 ， 在 此 处 插入 3 个 BACKSPACE 
2 语句 ， 就 可 将 文件 定位 指针 加 退 到 第 四 个 记录 之 首 。 这 
时 读 出 的 沁 录 则 是 设 后 两 个 记录 的 数据 。 
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第 二 部 分 PASCAL 语言 
程序 设计 
本 部 分 介绍 中 华 学习 机 CEC~ 1 上 PASCAL 语 言 的 基 


本 命令 以 及 纯 景 ， 子 界 、 集 合 、 数 组 、 串 、 记 录 、 文 件 和 指 
针 等 类 型 的 数据 结构 及 其 在 程序 设计 中 的 应 用 方法 。 
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第 九 章 “PASCAL 语 言 基础 


9.1 语言 的 基本 元 素 


1. 基 本 符号 

PASCAL 由 字母 .数字 和 特殊 符号 这 三 类 基本 字符 组 成 。 

字母 ， A~Z，a 一 z 

数字 ，0~9 

特殊 符号 ， 十、 一 、#* 、/、 人 、=、<、>、(、) 
[本 二 和 $ 

赋值 运算 符 ， 

关系 运算 符 ，= 一 、 娘 >、< 一、> = 一 、 娘 、>> 和 IN 

子 界 分 隔 符 ，'， 

注释 ，( < 和 ) 

2. 保 留 字 

保留 字 是 系统 保留 的 具有 固定 意义 的 单独 符号 ， 它 不 能 
再 作为 用 户 自 定义 的 标识 符 。 例 如 ，PROGRAM、TYPE、 
VAR、LABEL 等 。 

3 .标识 符 

标识 符 是 用 来 表示 程序 、 过程 、 函 数 、 类 型 、 常 量 和 变 
量 等 名 称 的 符号 。 

标识 符 必 须 以 字母 开头 ， 其 后 可 跟 字 母 或 数字 。 例 如 ， 
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合法 的 标识 符 不 合法 的 标识 符 
CU9TOMER MAX TEMP ( 出现 空 格 ) 


人 A X 一 1 (〈 出现 减 号 ) 

Al2B9 2AB (以 数字 开始 ) 

BCDEFG VAR (用 了 保留 字 ) 

4. 分 隔 符 

PASCAL 把 空白 符 、 行 结束 符 和 注释 看 作 分 隔 符 。 

5. 运 算 符 

PASCAL 提 供 如 下 四 种 运算 符 ， 并 按 顺 序 指 出 了 它们 
的 优先 级 ， 

四 乘除 运算 符 ， <、/、DIV、MOD 

@ 加 减 运算 符 ， 十 、 一 


图 轴 辑 运算 符 ，NOT、AND、OR 

由 关系 运算 符 ， =、<< > 、 娘 、>、<<= >>= 和 IN 

同一 优先 级 的 运算 符 ， 从 左 到 右 计算 。 括 号 内 的 表达 式 
优先 并 独立 于 前 后 运算 符 。 

如 果 乘 法 和 加 法 的 两 个 操作 数 是 整 型 ， 那 么 结果 也 是 整 
型 ， 如 果 其 中 一 个 或 两 个 是 实 型 ， 则 结果 为 实 型 。 

由 运算 符 、 标 识 符 等 就 可 以 构成 表达 式 。 


9.2 程序 的 结构 
PASCAL 程 序 的 结构 如 下 ， 
PROGRAM (程序 名 》( 《程序 参数 表 ) ， 

《说明 部 分 》 
BEGIN 
《语句 序列 》 


END。 
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其 中 , 程序 名 就 是 给 PASCAL 程 序 取 的 名 字 ， 程 序 参 
数 表 表示 程序 与 外 界 的 联系 ， 一 般 是 一 个 或 多 个 文件 变量 
名 。 程 序 通过 这 些 参 数 调 用 外 部 文件 。 最 常用 的 程序 参数 是 
INPUT 和 有 和 OUTPUT， 它 表示 该 程序 有 输入 和 输出 操作 。 
说 明 部 分 包 合 五 和 假 ， 标 号 说 明 部 分 


当量 说 明 部 分 
类 型 定义 
变量 定义 
过 程 和 函数 
每 一 段 要 么 出 现 -- 次 或 根本 就 不 出 现 ， 且 必须 严格 遵守 
上 述 顺 序 。 
1. 标 号 说 明 部 分 


标号 又 称 语 名 标号 ， 它 表示 程序 转移 去 执行 的 那个 语句 
的 标志 。 语 句 标号 由 标号 名 和 冒号 组 成 。 在 PASCAL 语言 
中 ， 凡 是 程序 执行 部 分 使 用 的 语句 标号 ， 都 必须 在 标号 说 明 
部 分 进行 说 明 。 标 号 说 明 的 格式 是 ， 

LABEL 《语句 标号 表 )， 

语句 标号 表 由 一 个 或 多 个 语句 标号 组 成 ， 其 中 标号 限制 
为 一 至 四 位 无 符号 整数 。 例 如 ， 

LABEL 10，301，9999; 

IF A>0 THEN GOTO 10， 


10: B: 一 C 十 100; 

注意 : 标号 之 问 朋 远 号 ( ， ) 隔 开 ， 最 后 用 分 号 ( ，) 
2. 常 量 说 明 部 分 

一 个 合 了 名 的 常数 值 称 为 常量 。 保 留 字 CONST 用 于 常 
"，174。 


= 器 - 


量 值 命 名 。 例 如 ， 

CONST MAX= 1024， 

MIN 王 一 MAX， 
PASSWORD= “OK” ， 

常量 可 以 是 串 、 字 符 或 数值 。 

3 .类 型 定义 部 分 

程序 中 的 每 个 变量 都 有 一 个 与 其 相 联系 的 类 型 。 类 型 既 
决定 了 沪 变 旦 所 能 取 的 值 ， 也 决定 了 对 该 变量 所 能 执行 的 运 
算 。PASCAL 提 供 了 四 种 标准 类 型 ， 且 人 允许 用 户 通 过 类 型 
定义 部 分 来 定义 自己 所 需 变量 的 类 型 。 保 留 字 TYPE 用 于 类 
型 定义 ， 其 格式 如 下 : 

TYPE 〈 标 识 符 )=( 类 型 )， 


例如 ， 


TYPE 人 
和 和 
DAY= (MON,TUE, WED,THU ,FRI,SAT,SUN)S 


4. 变 量 说 明 部 分 

变量 是 在 程序 执行 过 程 中 可 以 改变 其 值 的 量 ， 使 用 前 必 
须 在 变量 说 明 部 分 加 以 说 明 ， 才 能 在 程序 中 引用 。 保 留 字 
VAR 用 于 变量 说 明 ， 其 格式 如 下 ， 

VAR 《〈 标 识 符 表 》 ， 类 型 ， 

标识 符 才 由 一 个 或 多 个 标识 符 组 成 ， 标 识 符 之 间 用 逗号 
(《， ) 隔 开 ， 最 后 用 分 号 ( ， ) 结束 。 

例如 ， 
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VAR NUM:INTEGER; 
REDIUS ,RESULT:REALS 
WORKDAY ,HOLIDAY:DAYS 
STR:STR1; 
CH:LETTER; 


5 .过 程 和 函数 说 明 部 分 

过 程 说 明 是 用 于 定义 题目 中 某 个 子 任务 的 程序 。 其 一 般 
形式 如 下 ， 

PROCEDURE (过 程 名 ) (《〈 参 数 表 》 ) ， 

《程序 体 》 

程序 体 是 一 个 或 多 个 语句 ， 它 表示 程序 需要 完成 的 一 系 
列 操作 。 

函数 说 明 用 来 定义 一 个 计算 过 程 并 返回 计算 的 值 。 请 参 
见 第 十 三 章 。 


9.3 标准 纯 量 类 型 


前 面 已 提 及 ， 变 量 有 四 种 标准 纯 量 类 型， 这 就 是 , 整 
型 、 实 型 、 字 符 型 和 布尔 型 。 

1. 整 型 

PASCAL 中 的 整 型 数 取 值 范围 从 一 32768 到 32767， 每 
个 整 型 数 在 内 存 中 占 两 个 字 节 。 

在 程序 中 ， 整 型 变量 只 能 用 类 型 标识 符 INTEER 来 说 
明 。 例 如 ， 

VAR X，Y : INTEGER， 

整 型 常数 必须 在 常量 部 分 说 明 。 例 如 ， 
CONST PAGESIZE=60; 


BIGGEST=1000 ; 
SMALLEST=-B IGGEST3 
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2. 实 型 

实 型 数 的 值 域 为 一 3.40282E38 至 3.40282 世 38。 实数 值 
精度 是 32 位 二 进 制 数字 ， 接 近 7 位 十 进 制 数字 。 

PASCAL 的 实数 用 两 种 方法 表示 ,十 进 位 表 示 法 和 科 

十 进位 表示 法 就 是 小 数 形式 的 表示 方法 。 它 是 人 们 日 常 
生活 中 习惯 使 用 的 方法 。 例 如 ， 

3.5，040， 十 5.01，29.99 

一 8.50，1.0， 一 115.134， 一 29.999 

科学 表示 法 就 是 指数 形式 的 表示 方法 ， 它 与 计算 机 的 浮 
点 表示 是 一 致 的 。 例 如 ， 

十 5.02 巨 十 2， 一 5.0 卫 十 2，7.92E9 

十 5.02 下 一 2， 一 3.8E 一 2， 一 82.1E2 

实 型 变量 只 能 用 类 型 标识 符 REAL 来 说 明 。 例 如 ， 

VAR X2，Y : REAL， 

实 型 常数 在 常量 部 分 帝 明 。 例 如 ， 

CONST PI=3.1415926535， 

3. 布 尔 型 

布尔 变量 在 变量 说明 中 被 党 明 。 例 如 ， 

VAR P，Q:，BOOLEAN; 

布尔 变量 只 能 取 TRUE 或 FALSE 值 , 并 约定 FALSE 志 
TRUE。 一 个 布尔 变量 在 内 存 中 占 两 个 字 节 。 

布尔 类 型 主要 用 于 程序 中 的 流程 控制 和 逻辑 判断 。 

布尔 常量 也 必须 在 常量 阅 明 部 分 说 明 。 例 如 ， 

CONST SWICH=TRUE; 

4. 字 符 型 

字符 型 变量 在 变量 说 明 中 被 阅 明 。 例 如 ， 
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VAR A，CH :CHAR， 
一 个 字符 变量 占 内 存 一 个 字 节 。 
字符 常量 在 常量 说 明 部 分 说 明 。 例 如 。 


CONST RENDCHAR='"$'; 
BEGINCHAR='"P"35 


注意 ,字符 型 常量 和 变量 的 数据 只 能 是 一 个 字符 ， 不 能 
是 一 串 字 符 ， 且 用 单 引 号 括 起 来 。 例 如 ， “8 、 ?了 “、 
' 人 ，、“ 一 ” ，“ 呈 ”等 都 是 字符 。 


9 4 PASCAL 的 通用 语句 


浮 句 是 PASCAEL 语 言 的 执行 部 分 ， 每 条 语句 就 是 程序 动 
作 的 一 部 分 。PASCAL 语 言 的 通用 语句 按 其 结 构 可 .分 成 两 
大 类 : 基本 语句 和 构造 型 滞 句 。 


9.4.1 基本 语 各 


基本 语句 结构 简单 ， 它 包括 赋值 语句 ， 转 移 语 句 ， 空 语 
句 和 过 程 语 名 。 
1 .赋值 语句 
冉 值 语句 是 最 简单 的 语句 。 它 的 功能 是 确定 变量 的 内 
容 。 其 格式 为 ， 
《变量 名 : = (表达 式 )， 
作用 :将 表达 式 的 值 传送 到 变量 名 中 。 
其 中 变量 名 已 在 变量 说 明 时 例 定 ， : = 是 赋值 运 乱 符 ， 
它 才 示 洗 运算 符 右 端的 表达 式 的 运算 结果 送 到 运 筑 符 左 端 变 
-178 - 


量 所 在 的 存储 单元 ,表达 式 人 允许 为 常量 、 变 量 、 函 数 、 算 术 
例 1 计算 函数 
0 在 x= 一 3.1 处 的 值 。 


PROGRAM CALFUN (OUTPUT ) ， 
CONST PI=3.1416， 
VAR XXX， FE :REAEL， 
BEGIN 
又 :一 3.1， 
:一 PI/[2 十 3 e。XA2; 
WRITE(X FEF) 《输出 结果 ) 
了 END . 
例 2? ”已 知 两 数 分 别 存放 在 两 个 单元 中 ， 现 苹 求 把 此 两 
数 对 调 位 置 。 
PROGRAM ' SWAP， 
VAR A，B，C :REAL; 
BEGIN 
A :3.2; 
B : =8.3，(A，B 单 元 分 别 存 放 已 知 数 ) 
Cr 一 人 ; 
A := 了 B)， 
B:， 一 C 
END 
2 .转移 语句 
转移 语句 用 于 改变 程序 流程 。 
格式 ，GOTO 《〈 标 号 》 
作用 ， 无 条 件 转 到 标号 所 指定 的 语句 去 继续 执行 。 
例 3 ”键盘 输入 一 系列 数据 ， 统 计 输 入 正 数 的 个 数 ， 当 
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输入 负数 或 零 时 ， 程 序 停止。 
， PROGRAM INNUM(CINPUT，OUTPUT ) ， 
LABEL 111，222; 
VAR C:INTEGER， 
R : R 卫 AL， 
BEGIN 
C :=0:， ( 关 $G 二 Xx ) (编译 选择 项 ) 
111: READ(R)，( 键 盘 输 入 数据 / 
IF R<=oTHEN GOTO 222，( 输入 的 数 小 于 等 于 零 ， 
转 输出 ) 
C :一 C 十 1; 
GOTO 111， 
222 : WRITE (4C=2，C) ，( 输 出 结果 ) 
WRITE (EXIT' ) (输出 停止 信息 ) 
END. 


注意 ,使 用 GOTO 语 句 前 ， 必 有 需 在 使 用 标号 的 那个 程序 
段 的 标号 说 明 部 分 说 明 标 号 。 

标号 的 作用 域 就 是 说 明 它 的 那个 程序 段 。 因 此 不 能 从 外 
部 转 进 或 转 出 一 个 过 程 或 函数 。 

PASCAL 编 译 选 择 项 对 GOTO 语 句 的 软 认 值 为 G 一 , 即 
不 允许 用 户 在 程序 中 使 用 GOTO 语 句 ， 若 使 用 了 GOTO 语 
句 则 产生 一 个 编译 语法 错 。 因 此 ， 用 户 如 果 要 在 程序 中 使 用 
GOTO 语 句 ， 必 须 在 程序 中 加 上 编译 选择 项 (# $G 十 头 )， 
才 人 允许 使 用 GOTO 语 句 。 

3. 空 语句 

空 语 句 是 没有 任何 符号 的 语句 ， 当 程序 需要 一 条 不 产生 
任何 动作 的 语句 时 ， 即 可 使 用 它 。 

例 4 下 面 的 程序 先 显 示 一 个 “中 ” 字 ， 然 后 等 待 用 户 
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散 入 任何 一 键 ， 再 往 下 显示 新 的 内 容 。 
PROGRAM SPACESTATDEMOCINPUT ,OUTPUT ) 
BEGIN 
WRITELN (/ 击 7 
WRITELN ( 刘 7)， 
WRITELN (wm 训 间 章 间 和 ) 
WRITELN (′* 间 #/ ) 
WRITELN (4 间 间 宙 出 再 事 ) 


WRITELN (” 全 《7 
WRITELN (* 旬 0 
WRITELN (' e 下 


WRITELN (ENTER ANY KEY TO CONTINUE/) 
REPEAT UNTIL KEYPRESSED， 
WRITE (GOOD BYEK 7D) 

END. 


其 中 KEYPRESSED 为 布尔 类 型 的 标 准 函数 。 当 用 户 
殴 任 何 键 时 ，KEYPRESSED 为 真 ， 否 则 为 假 。 
循环 语句 REPEAT 和 UNTIL (参见 循环 语句 部 分 ) 之 
间 没 有 任何 动作 ， 即 相当 于 有 一 条 空 语句 ， 在 用 户 殴 入 任何 
一 键 之 前 ， 程 序 一 直 处 于 等 待 状态 ， 这 样 便于 用 户 看 清 前 面 
显示 的 一 幕 图 文 。 用 户 不 想 再 看 时 ， 敲 入 任何 一 键 ， 程 序 继 
续 运 行 。 这 种 方法 在 编程 中 经 常用 到 。 
4. 过 程 语句 
过 程 语 句 用 于 调用 用 户 在 说 明 部 分 定义 的 过 程 或 预定 义 
标准 过 程 。 过 程 语 句 由 过 程 标识 符 、 可 选 参量 表 组 成 。 参 量 
表 列 出 了 由 逗号 分 隔 开 的 变量 或 表达 式 ， 并 用 圆 括 号 括 起 
来 。 程 序 执行 期 间 遇 到 过 程 语句 ， 控 制 便 转 到 该 过 程 和 名 ， 并 
且 将 可 能 的 参数 值 传递 给 该 过 程 。 当 过 程 执 行 完 成 后 ， 从 调 
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用 过 程 语 句 的 后 继 语 名 开始 继续 执行 。 过 程 语句 的 人 恪 式 为 ， 
过 程 名 (〈 人 参量 表 》) ， 
例 5 求 S=1 十 2 十 3 十 …… 二 TS， 
PROGRAM PROCDEMO (INPUT,， OUTPUT ) ， 
VAR M,，S :INTEGER， 
PROCEDURE CULSUM (N : INTEGER ) ， 
VAR I:1INTEGER， 
BEGIN 
3S: 一 0 
FEOR T:=1TON DO 
S :一 5 十 1 
WRITELN(S ) 
END， 
BEGIN (〈 主 程序 开始 ) 
READ(CM)， 
CULSUM (M) 
END. 
上 面 程 序 中 READ (M ) 和 CULSUM (M ) 为 过 程 语 


句 ， 其 中 READ 为 预定 义 标准 过 程 。 


9.4.2 构造 型 语句 

构造 型 语句 是 由 几 个 成 份 组 成 的 一 种 语句 结构 。 这 些 语 
句 是， 复合 语句 ， 条 件 语 句 和 循环 语句 。 

1. 复 合 语句 

复合 语句 是 用 BEGIN 和 END 将 一 系列 的 语句 括 起 来 ， 
从 而 成 为 一 个 束 体 。 复 合 语 名 的 一 般 格式 是 ， 

BEGIN 

《语句 序列 》 


。 182。 


END， 
其 中 ， 语 名 序列 可 以 是 一 个 或 多 个 语句 。 
例 6 ”给 定 半 径 R=110 厘 米 的 圆 铁 板 一 块 。 若 以 其 圆心 
为 中 心 ， 逐 次 以 5，10，15，…，100，105 厘 米 为 半径 对 圆 
铁 板 进行 圆 切 制 ， 分 别 求 所 切 出 的 各 圆 环 ( 第 一 个 是 圆 ) 的 
面积 。 
各 圆 环 的 面积 为 ， 
TR 一 r(R 一 5) 2 一 rr(R2 一 (R 一 5): )=r(10R 一 
25 ) 。 
PROGRAM AREACAL (OUTPUT ) ， 
CONST 了 PI=3.14159，; 
VAR Rs: TNTEGER， 
AREA :REAL， 
BEGTIN 
R : 一 5 
WHILE R<=110 DO 
BEGIN 
AREA :一 Pfe(li0wR--25)， 
WRITELN (有 人 一 5，R，AREA)， 
R :一 上 十 5 
END 
END . 


注意 ， 相 邻 语 句 彼此 之 间 必 须 用 分 号 ( ， ) 隔 开 。 

2. 循 环 语 句 

如 果 需 要 重复 执行 某 些 操作 时 ， 可 以 用 PASCAL 的 循 
环 语 句 。 如 果 能 够 预先 知道 或 计算 出 重复 次 数 ,那么 用 FOR 
循环 ， 否 则 用 WHILE 或 REPEAT 循 环 。 

(1 ) REPEAT 语 句 
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格式 ，REPEAT 
《语句 序列 》 
UNTIL 〈 条 件 》 
作用 ， 反 复 执 行 指 定 的 语句 序列 ， 直 到 条 件 江 足 才 退 出 
循环 。 
这 里 的 语句 序列 是 需要 循环 执行 的 部 分 ， 又 称 循 环 体 。 
这 种 循环 语句 的 特点 是 先 执行 ， 后 检查 循环 条 件 。 控 制 重 复 
的 条 件 实 际 是 一 个 布尔 型 表达 式 。 REPEAT 循环 至 少 执行 
一 次 ， 因 为 是 先 执行 语句 序列 后 判断 条 件 。 
例 7 “整数 求 和 直至 某 数 为 零 时 停止 。 
PROGRAM REPEATDEMO(CINPUT ,0UTPUT) ” 
VAR SUM,NUMBER:INTEGER5 
BEGIIN 
SUMNM:=0; 
REPEAT ， 
READ (NUMBER) ; 
SUM:=SUM+NUMNEBER 
UNTIL NUMBER=0， 


WRITELN('THE TOTAL IS",SUM) 
END . 


注意 ,如 果 循 环 体 由 多 个 语句 组 成 ， 那 么 各 语句 彼此 间 
必须 用 分 号 ( ， ) 隔 开 。 循 环 体 中 通常 要 能 够 改变 条 件 表达 
式 的 值 ， 使 之 朝 着 满足 条 件 的 方向 发 展 ， 和 否则 可 能 造成 永 无 
休止 的 循环 ， 称 为 死 循环 。 

(2 ) WHILE 语句 

格式 ，WHILE 〈 条 件 》 DO 

《语句 》 

作用 ， 当 条 件 为 真 时 ， 反 复 执行 指定 的 语句 ， 直 到 条 件 
为 假 时 为 止 。 这 种 循环 语句 的 特点 是 ， 先 检查 条 件 ， 然 后 确 
定 是 否 循环 。 如 果 条 件 一 开始 就 不 成 立 ， 则 循环 -- 次 也 不 执 
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例 8 当 A>>=Bx 时 ， 求 最 大 的 N。 


PROGRAM WHILEDEMO(CINPUT,0UTPUT) 3 
VAR A,B,PRODUCT:REAL; 
POWER :INTEGER; 


BEGIN 
READ(A,B) 5 
POWER:=0; PR0ODUCT:=B; 
WHILE PRODUCT<=A D0 
BEGIN 
POWER:=POWER+1: 
PR0DUCT:=PRODUCT#B 


END; 
WRITE("LARGEST POWER OF7",B，"《"，,A， 
"TIS"，POWVER) 
END 。 


注意 ,循环 体 中 只 能 是 一 个 语句 ， 如 果 是 多 个 语句 ， 必 
须 用 BEGIN 和 END 括 起 来 ， 使 之 成 为 -- 个 复合 语句 。 

《3 ) FOR 语句 

格式 ， FOR 〈 变 量 名 ): = 〈 表 达 式 1》TOVDOWNTO 

表达 式 2》DO 《语句 》 

作用 ,给 变量 赋 初 值 ( 表达 式 1)， 执 行 一 次 语句 ， 然 后 
增加 《TO ) 1 或 减少 ( DOWNTO ) 1 再 执行 语 句 ， 如 此 重 
复 ， 直 到 变量 值 超过 终 限 值 ( 表达 式 2 ) 为 止 。 

其 中 ,变量 名 又 称 为 循环 控制 变量 ,表达 式 ! 为 初 值 , 表 
达 式 2 为 终 限 值 .TO/DOWNTO 表 示 可 用 TO 或 DOWNTO 。 
如 果 是 递增 1， 就 用 TO， 如 果 是 递减 1 就 用 DOWNTO。 

例 9 求 N 个 数 的 平均 值 。 

PROGRAI 5 0UTPUT) ; 


VAR I,N:INTEGE 
AVERAGE， SU ， NUMBER : REAL ; 
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BEGIN 
READ (N) SUM:=0; 
FOR I:=1 TO N D0 
BEGIN 
READ (NUMBER) 5 
SUMH:=SUM+NUMNBER 
END; 
AVERAGE :=SUMVN; 
WRITELN('AVERAGE IS".AVERAGE) 
END， 
注意 ， 循 环 体 若是 多 个 语句 ， 则 每 个 循环 体 都 必须 分 别 
用 BEGIN 开 头 ， 并 以 END 结 尾 。 
例 10 某 工厂 1985 年 的 产值 为 200 万 元 ， 计 划 年 增长 率 
为 5 邦 ， 计 算 并 输出 1990 年 至 2000 年 的 产值 。 
PROGRAM FORDEMO2 (OUTPUT ) ， 
VAR VALUE，RATE : REAL， 
YEAR ,INTEGER， 
BEGIN 
VALUE : =200.00， 
YEAR : = 一 1985， 
RATE : =0.05， 
WRITELN (7 1985 YEAR : 200.00 ) ， 
FOR YEAR : =1986 TO 2000 DO 
BEGIN 
VALUE : =VALUE*。 (1+RATE)， 
IF YEAR>=1990 THEN 
WRIiTELN (YEAR,， YEAR : "，VALUE ) 
玉 ND 
瑟 ND， 
3. 条 件 语 句 
条 件 语 句 有 两 种 结构 ; 
*，186 ， 


(1) IF 语句 

格式 ，IF 〈 条 件 》 THEN 《语句 1》 [ELSE 〈 语 句 2 

作用 ， 当 条 件 成 立时 执行 语句 1， 否 则 执行 语句 2。 语 名 
1 或 语句 2 执行 结束 后 ， 顺序 执行 后 继 语 名 


其 中 ，ELSE 根 据 需 要 而 选用 ， 称 为 待 选 项 ， 我们 用 
[ ] 表示 。 
例 11 IF 语句 示例 。 
IF AKC>0 TREN 
IF A>0O THEN 
P:=Q 
ELSE P:=R; 


表示 A 为 零 时 没有 动作 ，A 为 正 时 扣 @Q 依 赋 给 P，A 为 负 
时 把 R 值 赋 给 P。 为 避免 产生 语法 多 义 性 ，ELSE 子 句 属于 


不 带 ELSE 的 最 近 的 那个 IF 语句 。 因 此 二 面 的 语句 也 可 以 写 
成 ， 


IF AKC>0 THEN 
BEGIN 
IF A>O THEN 
P:=Q 


ELSE P:=R 
END; 


例 12 统计 正 数 和 负数 的 个 数 。 


PROCGRAM IFDEHOCINPUT, OUTPUT) 

VAR POSCOUNT ,NEGCOUNT:INHTEGERs 
NUMHBER :REAL35 

BEGIN 


P0SCOUNT :=0 ; 
NEGCOUNT:=0i; 
REPEAT 

READ(CNUMBER) ， 

IF 遂 耻 其 BER>=O THERN 
P0SCOUNT:=P0OSCOUNYT+1 
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PLSE NEGCOUNT:=NE6COUNT+1 
UNTIL NUMBER=0 ;(* 最 后 一 个 是 零 水 ) 
WRITELN("THERE VERE"，P0OSCOUNT ， 
"POSITIVE NO0S ' ) ; 
WRITELN(C'AND' ,NEGCOUNT，'NEGATIVE N0S ") 
END 


注意 ，IF 和 ELSE 的 对 应 关系 。 

(2 ) CASE 语 名 

格式 ，CASE (表达 式 》 OF 
情况 标号 1，〈 语 句 1 
情况 标号 2, 《语句 2>; 


[ELS 卫 
情况 标号 N，《 语 句 N)] 
END， 
作用 ， 根 据 表达 式 的 值 ， 分 别 选择 对 应 的 情况 标号 所 示 
的 语句 来 执行 ， 然 后 转 到 END 的 后 继 语句 去 执行 。 如 果 没 
有 与 表达 式 的 值 相符 合 的 情况 标号 ， 就 转 到 该 语句 的 下 一 个 
语句 去 执行 。 
例 13 摸 拟 APPLE PASCALEL 主 菜单 及 流向 控制 。 
PROGRAM PROGRAMEFRAM (INPUT，OUTPUT ) ， 
VAR CH : CHAR; 
PROCEDURE COMPILER， 
BEGIN 
WRITELN (HERE PUT THE PROCEDURE 
“COMPILE” 7 ) ， 
了 END， 
PROCEDURE EDITOR， 
BEGIN 
WRITELN (HERE PUT THE PROCEDUREE 
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“EDIT”， ) ， 
END， 
PROCEDURE RUN， 
BEGIN 
WRITELN (HERE PUT THE 
“RUN"” 7 )， 
END， 
PROCEDURE FILER， 
BFGIN 
WRITELN (/HERE PUT THE 
“FILER”"” )， 
END， 
PROCEDURE LINK， 
BEGIN 
WRITELN (/HERE PUT THE 
“LINK” 7/ ) ， 
END， 
BEGIN ( 主 程序 ) 
REPEAT 
READ(CH)， 
CASE CH OF 
“CC ':， COMPILER， 
“R，: RUN， 
也， EDITOR， 
江 ，:LINK 
F :FILER， 
END 
UNTIL CH= ' 互 ， 
END， 


PROCEDUREE 


PROCEDURE 


PROCEDUREE 
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主 程序 中 用 REPEAT 循 环 语句 中 和 伐 入 CASE 语句 ， 作 
为 主 程序 框架 ， 这 是 写 大 程序 的 常用 方法 之 一 。 

以 该 程序 为 基础 ， 略 加 修改 ， 可 以 较 快 地 搭 起 一 个 含 多 
个 过 程 的 程序 框架 ， 易 为 初学 者 模仿 。 当 过 程 已 DITOR 单 独 
也 调试 通过 后 ， 再 用 它 来 取代 程序 中 的 过 程 EDITOR， 这 就 
是 PASCAL 语 句 的 自 底 向 上 的 开发 方针 。 


例 14 计算 函数 
0 当 x 一 0 
入 吕 (1 一 x) 8 十 1! 当 x 一 1 
xs 十 1 当 x 一 2 
当 x 为 其 它 任 何 整数 


PROGRAM CASEDEMO (INPUT，OUTPUT )， 
VAR X FINTEGER， 
BEGIN 
READ(X)， 
CASE 入 OF 
0:，BEGIN 
E : 一 0 
WRITE('X=0，"F=', F) 
卫 ND， 
1: BEGIN 
FE: 一 (1 一 X)A 和 人 3 二 1 
WRITE ('X=1，F= FI) 
END， 
2:BEGIN 
了 :一 X 人 3 十 1; 
WRITE(X=20，F=“，F) 
END， 
下 LSE 
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BEGIN 


Fi: 一 X: 
WRITE (x='，x，*F= FEF) 
END 
END 
END， 
习 是 九 


1.PASCAL 语言 的 程序 结构 由 儿 部 分 组 成 ? 它 与 你 熟悉 的 其 它 算 
法 语言 的 结构 有 什么 不 同 ? 

2. 下 列 字符 串 娜 些 是 合法 的 标识 符 ? 

ABCDE，2ABC，VAR，VARI，TYPE，A. BC-D， 

SA21，SA$，Y12，DE#，“AB "*，123 

3. 下 列 数 据 哪些 是 整数 9 哪些 是 实数 ? 娜 些 超过 了 APPLE PA- 
SCALL 系 统 允 许 的 范围 ? 哪些 是 非法 的 ? 

123，3.46，20 玉 十 4， 一 4.0 马 38，0 

2.1E75，0.0， 一 370，35000， 一 35111 

71.50， 一 2.1 卫 一 20，100.0，5 了 5，0.00001 

4. 下 列 符号 哪些 是 字符 ? 

人 

3，'3 '，“THIS IS A PEN "， 

5. 下 列表 达 式 中 ， 哪 些 结果 为 真 ， 哪 些 为 假 ? 

5>8，123< 王 123，2 一 5 一 2， 一 3 一 一 3.0 

5 一 5.0，'A > PCCP>= IAA 一 A” 

6. 写 出 对 应 于 下 面 公 式 的 PASCA 世 赋值 语句 。 假 定 所 有 变 草 部 
是 实数 ， 并 且 定 义 需要 的 常量 。 

三 角形 的 边 长 为 a、b 和 c， 其 面积 为 

A=w5(S-a)(S-b)(5=-c) 
其 中 3S$=(a 十 b 十 < ) /2 


9 . 写 出 下 列 各 题 的 PASCAL 语句， 

(1 ) 根据 变量 PENCE 是 否 等 于 零 ， 打 印 “ZERO” 和 “NO- 
NZERO” 。 

(2 ) 已 知 收入 为 I 元 ， 计 算 应 付 所 得 税 下 元。 设 400 元 以 下 不 收 
税 ，400 至 600 元 收 税率 30 匈 其余 为 40 狗 。 此 外 ， 当 总 收入 超过 4000 元 
时 ， 税 率 增 至 50 狗 。 

8. 鸡 兔 同 笼 ， 共 计 有 M 个 头 ，N 只 脚 。 编 制 计算 鸡 免 各 有 多 少 的 
程序 。 其 中 M 和 N 由 键盘 输入 。 

9 .编写 程序 计算 所 有 小 于 500 的 质数 的 个 数 。 质 数 是 一 个 正 整 数 ， 
它 不 能 被 1 以 外 的 任何 整数 所 整除 。 检 查 的 一 种 方法 是 对 每 个 数 确 定 它 
是 否 能 被 小 于 它 的 所 有 正 整数 整除 。 
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第 十 章 “PASCAL 程序 的 运行 


如 果 读 者 希望 尽快 上 机 进行 实际 操作 ， 那 么 就 请 依次 阅 
读本 章 。 


10.1 PASCAL 系 统 的 启动 


PASCAL 系 统 多 许 用 一 个 或 多 个 驱动 器 工作。 由 于 中 
华 学 习 机 一 般 情 况 下 只 有 一 个 驱动 器 ( 通过 扩展 槽 可 增加 一 
个 驱动 器 ) ， 用 单 驱 动 器 和 双 驱 动 器 启动 系统 稍 有 不 同 ， 下 
面 分 别 叙述 ( 请 参见 第 三 册 《 操作 系统 》 中 有 关 UCSD PA- 
SCAE 的 叙述 ) 。 

1. 单 驱动 器 启动 

单 驱动 器 启动 分 二 步 ， 

第 一 步 冷 启动 。 先 打开 屏幕 电源， 将 APPLE1:, 系统 
盘 插入 驱动 器 ， 然 后 打开 计算 机 电源 ， 等 竺 片刻， 屏幕 显示 
下 列 信息 ， 

VELCOME APPLE1 T0 APPLE II PASCAL 1.1 
BASED ON UCSD PASCAL SYSTEM II.1 
CURRENT DATE IS 26-MAY-82 


[C]APPLE COMPUTER INC.1979,1980 
[C]U.C REGENTE 1979 


再 等 片刻 ， 屏 幕 出 现 命令 级 提示 行 
COMMAND: 下 (DIT,，R(CUN,，F(ILE ，C(OMP， 
LINK 这 表明 冷 启动 成 功 。 如 果 只 想 编辑 程序 和 运行 已 编 
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译 连 接 过 的 代码 程序 ， 可 从 命令 级 提示 行 选择 相应 的 下 和 六 
(或 R ) 命令 ， 就 能 工作 。 但 如 果 还 需要 编译 新 程序 ， 那 必 
须 进 行 第 二 步 。 

第 二 步 热 启动 取出 APPLE1， 系统 基 ， 择 进 APPL- 
E0 : 系统 盘 ， 按 CTREL 一 2 键 ， 稍 等 片刻 ， 屏 幕 显示 信 息 
“WELCOME APPLE0”， 几 秒 钟 后 ， 屏 幕 再 度 出 现 命 
令 级 提示 行 ， 这 时 从 命令 级 提示 行 可 以 选择 任意 一 个 命令 。 

2. 双 驱动 器 启动 

先 开 屏 幕 电 源 ， 把 APPLE1 : 系统 盘 搬 入 驱动 器 ( 卷 
号 #4: )， 而 把 APPLE2 : 系统 盘 搬 入 扩展 驱动 器 ( 卷 号 # 
5: ), 然后 打开 计算 机 电源 ,等 待 片刻 ,屏幕 上 出 现 ”WELC- 
OME APPLE1 ”信息 ， 再 等 片刻 ， 屏 幕 出 现 命令 级 提 示 
行 ， 这 意味 着 系统 正常 运行 。 用 户 可 以 选择 需要 的 命令 。 


10.2 磁盘 的 格式 化 和 复制 


为 了 安全 地 保存 原 盘 ， 在 使 用 PASCAL 之 前 应 复制 系 
统 盘 。 但 新 盘 不 能 直接 复制 ， 必 须 格 式 化 后 ， 方 能 在 系统 内 
正常 工作 。 

1. 盘 片 的 格式 化 方法 

当 系 统 启动 之 后 ， 取 出 系统 航 , 将 系统 栅 APPLE3: 捕 
入 驱动 器 # 4， 中 ( 双 驱 动 器 搬入 # 5:， 中 ) 。 由 于 格式 化 程 
序 存 放 在 APPLE3， 里 ， 这 一 步 不 可 少 。 然 后 键入 X 命 令 ， 
屏幕 提示 和 回答 如 下 ( 回答 内 容 用 下 横 线 标 出 ) ， 


EXECUTE WHAT FILE? 
APPLE3:PFORHATTFER 。 ( 表 示 回 车 键 ) 
APPLE DISK FORMHATTER PROGRAM 
FORMAT WHICH DISK (4,，5,9,..12)? 
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取出 APPLE3 盘 ， 并 将 空 盘 捅 入 #4 中 。 敲 入 ， 
4 


NOW FORMATTING DISKETTE IN DRIVE 4 
这 表示 ##4 : 中 的 磁盘 正在 进行 格式 化 处 理 ， 大 约 30 秒 后 , 格 
式 化 结束 ， 系 统 自动 给 该 盘 附 上 卷 号 BLANK : 。 

FORMAT WHICH DISK (4，5;7 9..12 ) ? 

4 (表示 还 要 格式 化 另 一 张 盘 片 ) 

若 只 殴 入 </， 则 表示 格式 化 工作 结束 ， 回 到 命令 级 。 

如 果 在 格式 化 过 程 中 ， 偶 尔 由 于 牙 忽 大 意 ， 将 系统 盘 或 
工作 盘 放 入 #4 : 中 ， 并 敲 了 -/ 键 ， 例 如 将 APPLE0 : 盘 当 
成 空 盘 ， 系 统 将 显示 出 警告 性 信息 

DESTROY DIRECTORY OF APPLE0 :， 
系统 盘 当 然 要 保护 ， 立 即 键 入 N， 盘 内 信息 不 受 破 坏 。 

2 .复制 系统 盘 

在 命令 级 键入 FE， 系统 进入 文件 级 命令 提示 行 ， 

FILER:G(ET, SC(CAVE, W(HAT，NCEW，LODIR， 

R(EM，C(OHNG，TC(RANS, D(ATE,，Q(CUIT 
或 者 

FILER:G,，S,，N,，L，R，C, T，D，Q 
键入 T 命 令 ，TRANSFER。， 

对 于 这 个 问题 的 回答 单 驱动 器 和 双 驱 动 器 稍 有 不 同 ， 假 
设 被 复制 的 源 盘 是 APPLE3 : ， 目 标 盘 是 卷 号 BLANK : 
(因为 格式 化 后 的 新 盘 卷 号 都 是 BLANK:，) 。 

(1 ) 单 驱 动 器 

取出 驱动 器 中 的 系统 盘 ， 插 入 APPLE3 : 盘 。 以 下 是 
回答 和 显示 的 信息 ， 
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APPLE3，，BLANK， 
TRANSEFER 280 BLOCK? 
了 L/ 
DESTROY BLANK:? 
YL/ 
PUT IN BLANK ， 
TYPE (SP》 TO CONTINUE 
现在 取出 APPLE3:， 盘 ， 揪 入 目标 盘 ， 淫 空格 键 (屏幕 
上 用 (SP 表示 空格 ， 输 入 程序 或 数据 时 ， 我 们 用 一 或 空白 
表示 空格 ) ， 几 秒 钟 后 ， 文 件 程序 告诉 ， 
PUT IN APPLE3 : 
TYPE (SP)》 TO CONTINUE 
如 此 交换 盘 的 过 程 重复 20 次 ， 最 后 复制 完 。 显示， 
APPLE3: 一 BLANK ， 
这 表明 目标 盘 上 已 有 了 APPLE3: 盘 上 的 全 部 信息 ， 包 
括 卷 号 也 复 为 APPLE3，， 不 再 是 BLANK : 了 。 
〈《2 ) 双 驱 动 器 。 
将 APPLE3: 盘 放 入 #4:， 中 ,， BLANK: 盘 放 入 #5， 
中 。 回 答 和 显示 的 内 容 如 下 : 
划 4: ， 井 53 
TRANSFER 280 BLOCK? 
Y sj/ 
DESTROY BLANK :? 
Y 
APPLE3 : 一 BLANK : 
整个 复制 过 程 结 束 ， 中 间 无 须 交 换 盘 。 一 块 盘 复 完 ， 系 
统 还 处 于 文件 级 ， 如 要 从 文件 级 返回 到 命令 级 ， 必 须 先 将 
APPLE0 : (或 APPLE1:，) 搬入 #4: 驱 动 器 再 键入 
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Q， 方 可 达到 目的 〈 由 于 文件 管理 程序 不 在 系 统 内 ) 。 
10.3 运行 PASCAL 程序 


10.5.1 PASCAL 程 序 的 输入 


在 命令 级 键入 已 命 令 ， 系 统 调 入 编辑 程序 ， 显 示 ， 
> 也 Di 
NO WORKFILE IS PRESENT.FILE? ((RETy》 
FOR NO FILE (ESC~-RETTO EXIT ) 

其 中 EDIT 表示 系统 进入 编辑 状态 。 由 于 系统 中 没有 
工作 文件 ， 因 此 编辑 程序 询问 用 户 是 否 要 工作 文件 。 同 时 按 
下 ESC 键 和 <-/ 键 ， 则 退出 编辑 状态 ， 返 回 命 令 级 ， 而 敲 </ 
键 ， 表 示 没 有 现成 的 文件 可 用 作 工 作文 件 ， 用 户 希 望 生成 一 
个 新 的 PASCAL 程 序 。 屏 幕 显示 编辑 级 的 提示 ， 

)EDIT ,A(DJST，C(OPY，D(LETE，F(IND，I(CNSERT， 
JIMP,，R(OPLACE，Q(UIT，XCCHNG，Z(AP 
键入 I 命 令 ， 显 示 择 入 命令 提示 ， 
)INSERT ,TEXT ((BS)A CHAR，(DELA LINE) 
【(ETX)ACCEPS，(ESC?ESCAPES) 
这 时 用 户 便 可 以 输入 PASCAE 源 程序 了 。 

下 面 以 具有 简单 输入 /输出 功能 的 完整 程序 为 例 ， 说 明 
输入 PASCAL 程 序 的 方法 。 

例 1 源 程 序 的 输入 练习 。 


PROGRAM EX1A(INPUT,0OUTPUT) ;， 
VAR A,B,C:INTEGER， 


EGIN 
READ (A,B) 
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C:=A+By; 
WRITELN(C) 
D . 


若 输 入 过 程 中 敲 错 了 字符 ， 可 以 用 左 箭头 “所 ” 键 消去 
一 个 字符 ， 用 CTREL-X 册 除 一 行 字符 。 然 后 再 输 入 正确 字 
符 。 如 果 蔽 一 下 ESC 键 ， 将 消去 全 部 输入 的 字符 。 当 输 完 上 
述 程序 以 后 ， 应 敲 CTRL-C 键 ， 使 已 经 输入 的 程序 的 字符 固 
定 下 来 ， 无 论 再 敲 左 箭头 、CTRL-X 还 是 下 SC 键 都 不 会 消 
去 程序 的 字符 ， 同 时 使 系统 退出 擂 入 方式 返回 编 各 级 命令 提 
示 行 。 

至 此 已 将 PASCAL 源 程序 全 部 输入 到 内 存 。 在 编辑 级 
命令 提示 行 下 选 Q 命 令 ， 转 到 退出 命令 提示 行 ， 

>QUIT: 
U(PDATE THE WORKPILE AND LEAVE 
E(XIT WITHOUT UPDATING 


RETURN TO THE EDITER VITHOUT UPDATING 
W(RITE TO A FILE NAME AND RETURN 


选 U 命 令 ， 系 统 将 输入 的 上 述 程序 作为 工作 文 件 ， 存 入 
自 举 盘 〈( 即 放 在 #4， 中 的 APPLE0: 或 者 APPLE1!, 盘 ) 
中 ， 并 加 上 文件 名 SYSTEM“.WRK TEXT。 在 存盘 的 过 
程 中 系统 还 会 显示 出 ， 
)QUIT ， 
列 RITING .ee 
YOUR FILE IS 100 BYTES LONG， 
然后 ， 系 统 返 回 命令 级 提示 行 ， 再 键入 R， 就 能 运 行 上 
面 的 程序 了 。 
注意 ， 在 键入 R 之 前 ， 俭 查 一 下 APPLE2， 系 统 盘 是 舍 
在 #5， 中 ， 单 驱动 器 APPLER0 :在 #4 :中 。 
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10.3.2 修改 程序 


由 于 已 经 鼓 过 CTRL-C 键 ， 和 输入 的 程序 便 披 “固定 ” 
了 ， 就 不 能 用 “ 妈 ” 或 CTRL-X 键 米 修 改 程序 、 这 时 应 采用 
在 编辑 状态 下 修改 的 方法 。 假 定 上 述 程序 的 第 二 行 有 一 些 错 
误 的 输入 并 且 没有 及 时 发 现 ， 如 ， 

PROGRAM EXIA LINPUT，OUTPUT )，) 

VAR A，Bs INTNEGOR， 

显然 ，B 之 后 漏 扯 了“，C”， 多 出 一 个 字 尽 “N” 以 及 
后 而 应 该 是 “总 ”而 辟 为 “9D” 了 。 

修改 册 错 程序 的 步 哺 是 。 

1 .进入 编辑 状态 

如 采 键 和 QU 或 R 之 前 发 现 程序 输入 字符 有 错误 ， 系 
统 正 处 在 编 缉 状态 ， 可 立即 修改 之 。 如 果 键 入 Q、U 或 R 命 
令 之 后 由 语法 检查 才 发 现 程序 有 错误 ， 此 时 系统 已 处 于 命令 
级 提示 行 ， 此 能 改 错 。 必 须 刍 入 也 命 令 ， 使 之 转 到 编 辑 级 状 

2. 移 动 光 标 到 出 错 的 字符 上 

利用 如 下 的 光标 控制 键 ， 可 以 方便 地 移动 光标 到 指定 的 
字符 位 置 。 

印 ”光标 左 移 一 个 字符 。 

忆 ”光标 右 移 -- 个 字符 。 

CTRL-O 光标 上 移 -一 行 。' 

CTRL-L 光标 下 移 一 行 。 

将 光标 移 到 第 二 行 的 “， ”位 置 上 。 

3. 播 入 遗 音 字符 

键入 1， 进 入 JJNSERT 级 。 键 入 遗漏 字符 “，C”《(〈 此 
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时 “，” 以 后 的 字符 立即 全 部 从 屏幕 上 消失 ， 不 必 惊 慌 ， 这 
些 信息 并 没有 真 的 丢 撩 ) 。 

敲 CTRL-C (原来 已 消失 的 字符 又 全 部 重 现在 屏幕 上 ， 
字符 “，&” 志 加 上 了 ) ， 显 示 ， 

)EDIT，A(DJST。 

PROGRAM EXIA(INPUT， OUTPUT ) ，) 

VAR A，B，C，INTNEGOR， 

4. 删 除 错 误 字 符 

移动 光标 到 字母 “ N” 上 。 

键入 D 命 令 ， 系 统 进 入 删除 命令 提示 ， 

)DELETE,，( 》(MOVING COMMANDS)((ETX》 TO 
DELETE，(ESC)TO ABORT3? 


胡 一 下 “>” 键 ， 字 母 N 立 即 消失 ( 光标 落 在 字母 了 上 ， 
如 果 继 续 敲 “[>” 键 ， 可 消去 后 面 的 所 有 字符 ， 如 果 发 现 消 
去 了 不 应 该 删除 的 字符 ， 再 癌 “<|” 键 ， 去 掉 的 字符 又 会 出 
现在 屏幕 上 ) 。 

再 键入 CTRL-C， 才 真正 删除 了 字母 N， 系 统 返 回 编辑 
级 命令 提示 行 ， 显 示 ; 

)EDIT，A (DJST… 

PROGRAM EXIA (INPUT,， OUTPUT ) ， 

VAR A,，B，C，INTEGOR， 


5. 更 换 字符 

移动 光标 到 字母 “0” 上 ， 

键入 X 命 令 ， 进 入 相应 的 更 换 命令 提示 行 。 敲 -- 下 下 键 ， 
字母 “0” 立 即 消失 而 改 为 蕊 ( 如 果 继 续 吉 字 符 可 将 “有 Ri 


。，200。 


更 换 掉 ， 但 这 里 的 “R，” 是 正确 的 不 应 该 更 换 。 硕 “< 
键 ， 换 掉 的 字符 又 会 恢复 而 出 现在 屏幕 上 ) 。 


再 键入 CTRL-C， 才 真正 更 改 字符 ， 此 时 系统 返回 编辑 
级 ， 显示 ， 


EDIT ，A (DJST.。 


PROGRAM EXIA(INPUT,， OUTPUT ) ， 
VAR A，B，Ce INTEGER， 


至 此 ， 程 序 中 的 错误 全 部 改正 。 
6. 转 到 退出 ( QUIT ) 状态 
键入 Q 命 令 ， 使 系统 转 到 退出 命令 提示 ， 


)QUIT ， 
U(PDATE THE WORKFILE AND LEAVE 
了 (XIT WITHOUT UPDATING 


RETURN TO THE EDITER_ WITHOUT UPDATING 
W(CRITE TO AFILE NAME AND RETURN 
选 U 命 令 ， 更 新 工作 文件 ， 使 修改 后 的 程序 存 入 自 举 


盘 ， 并 附 上 文件 名 SYSTEM.WRK.TEXT，。 系统 返回 命 
令 级 提示 行 。 


10.5.5 编译 和 运行 程序 


在 命令 级 提示 行 下 选 R 命 令 ， 就 调用 编译 程序 ， 对 工 作 
文件 进行 编译 ， 屏 幕 显示 风 译 时 的 情 癌 ， 


PASCAL COMPILER II.1[B2B] 


《OZaws 
EXIA [2091 WORDS] 
5 
8 


LINES 
SMALLEST AVAILABLE SPACE=2091 VORDS 
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屏幕 显示 的 己 XIA 标 识 符 是 程序 和 其 过 程 的 名 字 。( 》 
内 的 数字 是 编译 到 的 当前 行 号 ， 后 面 跟随 省 略 号 ， 其 每 一 个 
点 表示 源 程序 已 通过 编译 的 一 行 。 方 括 弧 [ ] 内 的 数字 表示 
在 织 译 过 程 中 ， 在 该 行 上 最 少 可 用 空间 的 大 小 。 

编译 完成 后 ， 接 着 自动 运行 ， 屏 幕 显示 : 

RUNNING… 

_5`4s (输入 数据 ， 用 空格 一 分 隔 数据 ) 

9 〈 输出 的 结果 ) 

敲 键 ， 屏 幕 又 显示 出 命令 级 提示 行 ， 并 将 代码 工作 文 
件 9YSTEM:.WRK'CODE 存 入 自 举 盘 。 

如 果 输 入 的 源 程序 有 错误 ， 我 们 假设 程序 XIA 少 写 了 
变量 A 的 说 明 。 编 译 程序 会 发 现 错误 ， 并 显示 出 错 信 息 ， 

C:,， =A<<<<< 

LINE5，ERROR104 : (SP) (CONTINUE ) ，(ESC (CT 

ERTINATE) 忆 (DIT 

这 时 停止 编译 ， 系 统 等 待 一 个 敲 键 命令 。 

获 世 SC 键 ， 退 出 编译 程序 ， 返 回 命令 级 。 

殴 空 格 键 ， 继 续 编 译 ， 以 便 发 现 更 多 错误 。 

辟 忆 键 ， 退 出 编译 程序 ， 进 入 编辑 程序 。 
屏幕 项 部 显示 出 错 信息 UNDECLARED IDENTIFIER， 
敲 一 下 空格 键 ， 出 错 信 息 消 失 ， 显 示 编 辑 级 的 提示 行 ， 按 照 
前 面 所 述 的 修改 程序 的 方法 ， 可 对 源 程序 进行 修改 。 

如 果 用 户 的 自 举 盘 (APPLE0 :或 者 APPLE1: ) 
存放 的 文件 太 多 ， 当 键入 Q、U 时 ， 工 作文 件 不 能 存 入 自 举 
航 ， 无 法 编译 和 和 运行。 这 时 只 有 将 自 举 盘 中 的 命名 文件 ( 用 
户 父 件 ， 不 是 系统 文件 ) 清除 一 些 ， 让 出 磁盘 空间 ， 才 能 存 
入 。 


10.4 工作 文件 的 更 新 


由 于 系统 每 次 只 允许 一 个 工作 文件 ， 因 此 要 想 输入 新 的 
程序 ， 必 须 对 原 有 工作 文件 进行 处 理 。 

1. 将 工作 文件 作为 命名 文件 存 入 磁盘 

在 命令 级 提示 行 下 ， 键 入 FF 命令， 进入 文件 级 命令 提 示 
行 ， 

FILER,，G，S,，N,L,， R，C, T，D，Q [1.0 

键入 S 命 令 ， 显 示 和 回答 如 下 ， 

9AVE AS9S? 

EXAMPLEIA。 

自 举 盘 中 的 SYSTEM，WRK， TEXT 和 SYSTEM 
WRK'CODE 工 作文 件 就 会 以 名 下 XAMPLEIA. TEXT 和 
EXAMPLEIA. CODE 存 入 自 举 盘 中 。 如 果 要 想 将 命名 文 
件 存 入 用 户 的 目标 盘 ， 可 用 文件 级 的 T 命 令 ， 将 自 举 盘 上 的 
文件 EXAMPLEIA,. TEXT 和 EXAMPLEIA. CODE 复 
制 到 目标 盘 。 

如 果 有 两 个 驱动 器 ， 取 出 驱动 器 # 5:， 里 的 APPLE2， 
盘 ， 插 进 已 格式 化 的 磁盘 ， 作 为 存放 源 程序 的 目标 盘 。 然 后 
回答 ， 

_ 井 5:EXAMPLEIA。L/ 
则 自 举 盘 的 工作 文件 的 两 个 版 本 以 名 EXAMPLEIA .TEXT 
和 EXAMPLEIA.CODE 存 入 目标 盘 。 

2 .清除 工作 文件 

当 工 作文 件 已 成 为 命名 京 件 存盘 之 后 ， 这 个 工作 文件 就 
无 继续 保留 的 必要 了 ， 应 清除 掉 ， 让 出 工作 文件 区 供 新 的 
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PASCAL 程 序 使 用 。 清 除 工 作文 件 的 方法 是 ， 
在 文件 级 提示 行 下 ， 键 入 N 命 令 ， 显 示 利 回答 如 下 ， 
THROW AWAY CURRENT WORKFILEY? 
_ 了 Yo/ 

则 清 掉 内 存 里 的 工作 文件 ， 同 时 删 去 自 举 盘 中 的 SYST- 
EM.WRK.TEXT 和 SYSTEM.WRK.CODE 两 个 工作 文 
件 。 

如 回答 N， 则 工作 文件 仍 被 保留 下 来 。 

3. 创 建新 的 工作 文件 

在 命令 级 键入 已 ， 进 入 编辑 级 ， 由 于 工作 文件 已 被 清 
除 ， 显 示 ， 

EDIT 

NO WORKFILE IS PRESENT FILE? ( (RET》 FOR 

NO FILE 〈ESC-RET》 TO EXIT ) 

可 用 两 种 方法 建立 新 的 工作 文 件 。 第 一 种 方法 是 禹 -/ 
键 ， 以 新 输入 的 PASCAL 程 序 作为 工作 文件 ， 这 在 前 面 已 
介绍 过 ， 不 再 袭 述 。 第 二 种 方法 是 将 自 举 盘 上 的 命名 文件 作 
为 工作 文件 。 假 设 命名 文 住 是 TREE EXT， 键入， 

TREE.TEXT。/ 

系统 在 自 举 盘 上 检索 文件 TREE .TEXT， 找 到 这 个 文 
件 后 ， 在 屏幕 上 立即 显示 出 文件 的 内 容 , 编 辑 程序 将 TREE， 
TEXT 作为 工作 文件 的 文本 ， 并 自动 在 自 举 盘 上 建立 新 的 文 
件 SYSTEM.WRK'.TEXT。 这 时 工作 文件 名 虽 与 前 次 的 
工作 文件 名 相同 ， 但 文件 的 内 容 却 是 新 的 .如 果 命 名 文件 
TREE.TEXT 不 在 自 举 盘 ， 可 通过 文件 级 的 人 命令 ， 将 它 
从 目标 盘 传 送 到 自 举 盘 。 

如 有 两 个 驱动 器 ， 则 目标 盘 插 入 驱动 器 #5: 内 ， 然 后 
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键入 : 
#5: TREE.TEXT。/ 
编辑 程序 也 将 TREE,TEXT 作 为 工作 文件 。 


习题 十 


1. 单 驱动 咒 和 双 驱 动 器 和 启动 系统 的 主要 不 同 在 哪儿 ? 亲自 在 你 的 
中 华 学 习 机 上 实践 一 下 系统 的 启动 。 

2 .为 什么 要 格式 化 新 磁盘 ? 格式 化 新 盘 的 文件 在 哪 张 系统 盘 上 ? 

3 . 单 驱动 器 和 双 驱 动 器 复制 系统 盘 有 哪些 主要 差别 ? 

4. 叙 述 输入 一 个 PASCAL. 源 程序 的 大 致 过 程 。 输 入 过 程 发 现 错 
澡 (未 向 CTRL-C 之 前 ) 怎么 修改 程序 ? 敲 了 CTRL-C 后 又 怎 样 修 
改 程序 ? 

5 .编译 和 运行 程序 用 什么 命令 ? 编译 出 错 怎样 处 理 ? 

6. 在 你 的 中 华 学 习 机 上 编译 和 运行 一 个 PASCAL 程 序 。 

7. 为 什么 要 更 新 工作 文件 ? 怎样 创建 一 个 新 的 工作 文件 ? 
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第 十 一 章 ” 纯 量 、 子 界 、 集 合 
数组 和 串 类 型 


前 面 讨论 了 PASCAE 的 标准 类 型 , INTEGER REAL、 
BOOLEAN 和 CHAR 类 型 。 这 里 再 讨论 PASCAL 中 此 用 到 
的 纯 量 、 子 界 、 集 合 、 数 组 和 串 类 型 。 


11.1 纯 量 类 型 


1. 纯 量 类 型 定义 

纯 量 类 型 的 说 明 比 较 简单 ， 它 是 该 类 型 的 变量 可 能 具有 
的 值 的 一 个 表 。 例 如 ， 

TYPE UNITS= (INCHES，FEET,FURLONGS， 
MILES ) ; 

指出 类 型 UNITS 的 变量 只 可 能 取 指 定 的 四 个 值 之 一 ， 
而 不 能 取 别 的 值 。 类 型 UNITS 和 标准 类 型 一 样 在 变 量 说 明 
中 使 用 。 例 如 ， 

VAR SCALL，UNITS， 

纯 量 定义 的 例子 如 下 ， 


YPE 
DAY= (MONDAY,TUESDAY ， THURSDAY， 
FRIDAY,SATURDAY,SUND 
RELATIONSHIP= (PARENT， SIBLING， 0FFSPRING， 
C0USIN) ; 
VAR HOLIDAY, WORKDAY:DAY: 
ELATIVE:RELATIONSHIP; 
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2. 纯 量 类 型 的 常量 

列 在 纯 量 类 型 说 明 的 值 表 中 的 名 字 是 该 类 型 的 常量 。 因 
此 可 将 纯 量 常量 赋 给 该 类 型 的 变量 。 例 如 ， 

HOLIDAY:==SUNDAY， 

RELATIVE:=PARENT， 

3S. 纯 量 类 型 的 关系 运算 

关系 运算 符 =、<>>、 刀 、 > 、 扫 = 、>>= 可 用 于 纯 量 
型 变量 ， 表 达 式 的 结果 是 一 个 布尔 值 。 纯 量 类 型 的 次 序 是 由 
类 型 说 明 中 它们 出 现 的 先后 顺序 确定 的 。 因 此 下 述 表 达 式 为 
真 ， 

INCHES<FEET<<FURLONG<MILES 

标准 类 型 BOOLEAN 是 一 个 纯 量 类 型 ， 它 由 以 下 说 明 
隐 含 定义 ， 

TYPE BOOLEAN= (FALSE，TRUE ) ;，， 

4. 纯 量 函数 

标准 函数 PRED ( 求 纯 量 的 前 导 值 ) 和 SUCC ( 求 纯 量 
的 后 继 值 ) 是 为 纯 量 型 参数 定义 的 。 回 送 的 值 和 参数 的 类 型 
相同 ， 是 参数 在 定义 表 中 的 前 导 值 和 后 继 值 。 例 如 ， 

PRED (FEET ) =INCHES (INCHES 在 FEET 之 
前 ) 

SUCC (FURLONGS ) =MILES (MILES 在 FUR- 
LONGS 之 后 ) 

表 的 第 一 个 值 没有 前 导 值 ， 最 后 一 个 值 没有 后 继 值 。 因 
此 求 SUCC ( MILES ) 和 PRED (INCHES ) 将 要 出 错 。 

标准 函数 ORD ( 求 纯 量 的 次 序 序号 ) 有 一 个 纯 量 型 参 
数 并 回 送 一 个 整数 值 ， 它 是 纯 量 值 在 其 定 义 表 中 的 次 序号 
码 。 表 中 的 第 一 个 值 ， 次 序数 为 0， 因 此 ORD ( INCHES ) 
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一 0; 而 ORD (FEET ) =1 (次 序号 码 从 0 开始 计数 ) 。 


例 1 一 个 教师 从 星期 一 到 星期 日 的 工作 安排 。 


星期 一 、 三 ， 讲 计算 机 原理 课 
星期 二 ”: 学 习 政治 
星期 四 、 五 ， 讲 程序 设计 课 
星期 六 ;学习 英语 

星期 日 ， 自 由 地 安排 工作 


PROGRAM SCALARSDEMO (OUTPUT ) ， 
TYPE 
DAYS=(SUN，MON，TUE，WED，THU，FRI,SAT)， 
VAR ， - 
1 INTEGER， 
WORK :DAYS， 
BEGIN 
WRITE('/LOCAL ORDER:，7); 
WORK : =MON; 
WHILE WORK<=SAT DO 
BEGIN 
I : =ORDCWORK)， 
WORK : =SUCCCWORK)， 
WRITE(I : 3) (变量 [ 占 3 位 ) 
END， 
WRITELN， 
WRITELN (WORK CASE，1)) 
FOR WORK , =SUN TO SAT DO 
CASE WORK OF 
MON : WRITELN (71……TEACH COMPUTERI /)， 
TUE : WRITELN (7/2……STUDY POLITICS!  ' ) ， 
WED :WRITELN (/3……TEACH COMPUTERI 
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THU :WRITELN (74…TEACH PROGRAMING! )， 
FRI :， WRITELN (75.…… TEACH PROGRAMINGL ')9 
SAT :WRITELN (7 6.……: STUDY ENGLISHI ')? 
ELSE WRITELN(CI0… OPENI ') 

END 

END， 

在 这 个 程序 中 ， 纯 量 类 型 变 量 双 ORK 作为 循 环 语句 
WHILE 的 控制 变量 ， 在 变量 WORK 不 大 于 SAT 时 ， 继 续 
不 断 地 循环 ， 输 出 MON 至 SAT 的 序数 值 。 

纯 量 类 型 变量 WORK 作 为 情况 语句 的 选择 表 达 式 ， 情 
况 标 号 如 MON 是 纯 量 类 型 数据 。 


11.2 子 界 类 型 


1. 子 界 类 型 定义 

一 个 子 界 类 型 可 由 两 个 常量 定义 。 常 量 的 类 型 可 以 是 整 
数 、 字 符 或 纯 量 类 型 。 不 允许 实数 的 子 界 。 例 如 ， 

TYPE INDEX 一 1..20， 

LETTER='A'..IZ0 
WEEKDAY=MONDAY..FRIDAY， 

类 型 WEEKDAY 是 纯 量 类 型 DAY ( 称 作 相关 纯 量 类 
型 ) 的 子 界 。INDEX 的 相关 纯 量 类 型 是 整 型 ，LETTER 的 
相关 纯 量 类 型 是 字符 型 。 

子 界 的 定义 简单 规定 了 子 界 的 最 小 和 最 大 值 。 第 一 个 常 
量规 定 了 下 界 ， 第 二 个 常量 规定 了 上 界 ， 下 界 一 定 不 能 大 于 
上 界 。 

2 . 子 界 型 变量 

子 界 型 变量 在 变量 说 明 部 分 说 明 。 例 如 ， 
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TYPE LETTER=I'A7..1Z7/， 
DAYS= (SUN，MON，TUE，WED，THU， 
FRI，SAT)， 
WEEKDAY=MON..3SAT， 
VAR WORKDAY=WEEKDAY， 
FIRSTCHAR，LASTCHAR :LETTER， 


子 界 类 型 的 定义 和 子 界 变量 的 说 明 可 以 进行 合并 。 例 
如 ， 


VAR WORKDAY :MON..SAT， 
FIRSTCHAR，LASTCHAR :'A7..121， 


过 程 READ( 读 ) 和 WRITE( 写 ) 可 用 于 整数 和 字符 
型 的 子 界 。 
例 2 求 出 某 月 属于 哪个 季节 。 


PROGRAM SUBRANGESDEMOCGNPUT，OUTPUT)， 
VAR 
MONTH :1..12; 
BEGIN 
READ(MONTH)， 
CASE MONTH OF 
2..4:WRITELNCMONTH，'MONTH IS SPRING .7)， 
5..7: WRITELNCOMONTH,'IMONTH IfS SUMMER. ID)， 
8..10: WRITELN (MONTH，'MONTH LS AUTUM- 


N .71); 
11..12，1，WRITELN (MONTH，'MONTH IS WIN- 
二 和 
END 
END， 
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11.3 长 整数 类 型 


PASCALEL 人 允许 用 户 自 定义 长 整数 类 型 数 . 据 定义 的 方法 
是 在 保留 字 INTEGR 后 带 上 长 度 说 明 。 例 如 ， 

TYPE BIGNUM=INTEGER [12] ， 

VAR FATS， INTEGER [25] ， 

BIGNUM 定 义 为 一 长 整数 类 型 ， 属 于 这 种 类 型 的 数据 
能 取 任 何不 超过 12 个 十 进 制 数字 的 整数 。 第 二 名 说 明 变 量 
FATS 也 为 长 整数 型 ， 它 可 以 取 小 于 25 个 十 进 制 数字 的 任何 
整数 。 

在 PASCAL 中 ， 一 般 整 数 取 值 范围 是 一 32768 到 32767， 
而 长 整数 类 型 的 长 度 说 明 可 以 是 不 超过 36 的 任何 无 符号 整 常 
数 ， 即 长 整数 类 型 最 大 可 以 取 到 36 位 十 进 制 数字 。 

长 整 型 常量 也 是 允许 的 。 任 何其 值 超过 一 般 整 数 范围 的 
整 型 常数 自动 处 理 为 一 长 整 型 常数 。 

算术 运算 符 十 、 一 、 关 、DIV 能 用 于 长 整 型 数据 但 
MOD 却 不 能 。 当 一 个 长 整 型 数据 赋 给 一 个 长 整 型 变 量 时 ， 
如 果 值 的 十 进 制 数字 多 于 变量 定义 的 长 度 则 发 生 滋 出 ,在 整 
型 算术 运算 中 ， 如 果 中 间或 最 终结 果 多 于 36 个 十 进 制 数 字 也 
发 生 洲 出 。 

台 型 值 可 以 赋 给 一 个 长 整 型 变量 ， 且 自动 将 它 转 换 成 相 
应 的 长 度 。 但 是 ， 却 不 能 将 一 个 长 整数 值 赋 给 一 个 整数 变 
量 。 如 果 一 个 表达 式 中 同时 包含 整 型 值 与 长 整 型 值 ， 则 整 型 
值 被 自动 转换 成 长 整 型 值 ， 运 算 结 果 为 长 整 型 值 。 长 整 型 和 
实 型 是 不 相 容 的， 它们 不 能 同时 出 现 于 一 个 表达 式 中 ， 也 不 
能 彼此 赋值 。 
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所 有 标准 的 关系 运算 符 均 可 以 用 于 长 整 型 数据 或 长 整 型 
与 整 型 相 混合 的 情形 。 

内 部 过 程 STR (LONG，STRG ) 中 的 参数 LONG 可 
以 是 长 整 型 值 ， 该 过 程 将 LONG 的 值 ， 转 换 成 一 个 十 进 制 数 
字 串 ， 送 给 串 变量 STRG 。 内 部 函数 TRUNC 亦 能 接 受 长 整 
型 值 作为 参数 ， 如 果 该 长 整 型 绝对 值 小 于 或 等 于 MAXINT 
(一 32767 为 系统 定义 的 整 型 常量 标识 符 ) ， 则 TRUNC 回 
送 相应 的 整 型 值 。STR 和 TRUNC 是 唯一 允许 接受 长 整 型 值 
作为 参数 的 内 部 过 程 和 内 部 函数 。 

企图 在 一 个 参数 表 中 说 明 某 参数 为 长 玫 数 类 型 将 导致 语 
法 错误 ， 但 这 种 限制 可 以 通过 定义 一 个 长 整数 类 型 来 消除 。 
例如 ， 

PROCEDURE BIGNUMBER(CBANKACCT，[INTEGER 
[18] )，; 
将 导致 语法 错 ， 而 

TYPE LONG=INTEGER [18] ， 

PROCEDURE BIGNUMBER(BANKACCT:， LONG)， 


是 合法 的 。 例 如 ， 
VAR I，INTEGER， 
L，INTEGER [CN] ，(N 为 <= 36 的 整 常数 ) 
民 ，REAL， 
BEGIN 
II : =L， (语法 错 ) 
I: =TRUNC (L ) ，( 正 确 ) 
L := 一 L， (正确 ， 假 定 世 是 不 多 于 36 位 的 十 进 数字 ， 负 号 不 
计 在 数字 内 ) 
工 : 一 T; 《正确 ) 
工 :一 民 ， (不 接受 ) 


ee 212。 


K， =J，( 不 接受 ) 

分 了 配 给 长 整数 类 型 的 内 存单 元 总 是 整数 个 字 。 一 个 
INTEGER [CN] 类 型 的 变量 占用 (N 十 3 ) /4 十 1 个 字 。 因 
此 ， 一 个 长 整数 的 值 的 实际 限度 可 以 超过 说 明 中 规定 的 十 进 
制 数 的 位 数 。 例 如 ， 一 个 5 到 8 位 长 的 长 整 型 占用 3 个 字 ， 能 
存放 的 最 大 数 为 99 999 999 ( 占 两 个 字 ) 。 

例 3 ”计算 中 国 、 美 国 和 印度 人 口 的 总 数 。1976 年 中 国 
人 口 数 为 825,000,000， 美 国人 口 数 为 212,000,000， 印 度 人 
口 数 为 586 ,000,000。 

PROGRAM LENINTDEMO.(OUTPUT ) ， 

VAR CHINA，USA，INDIA:， INTEGER [9] ， 

TOTAL，INTEGER [12] ， 

BEGIN 

CHINA : 一 825000000; 

USA :一 212000000; 

INDIA : 王 586000000， 

TOTAL : =CHINA+USA+INDIA:,， 

WRITE(TOTAL ) 

END， 


11.4 集合 类 型 


1. 集 合 及 其 操作 

集合 理论 是 数学 的 一 个 分 支 ， 它 是 由 康 托 在 十 九 世 纪 后 
期 创建 的 。 集 合 论 的 基础 在 于 集合 是 由 它 的 成 员 或 元 素来 定 
义 的 。 例 如 ， 

《1 ) 0 至 511 的 所 有 几 数 构成 一 个 集合 ; 

〈 2 ) 西 文字 母 构成 一 个 集合 ， 
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(3 ) 西 文字 符 的 并 又 构成 另 一 个 集合 。 
两 个 集合 相等 ， 当 且 仅 当 它 们 的 每 个 元 素 相同 〈 这 里 没 
有 涉及 元 素 的 顺序 ) 。 例 如 ; 
合格 是 相 
等 的 。 
如 果 一 个 集合 的 所 有 成 员 都 是 另 一 个 集合 的 成 员 ， 则 第 
一 个 集合 被 包含 于 第 二 个 集合 中 。 例 如 ， 
集合 【1，2] 被 包含 于 集合 (1，2，8] 中 。 
如 果 两 个 集合 不 相等 ， 这 种 包含 称 为 “严格 包含 ”。 集 
合 【1，2，8] 也 包含 于 集合 58，2，1] 中 ， 这 是 不 严格 包 
含 。 
对 集合 有 三 种 操作 ， 它 们 类 似 于 整数 的 加 法 、 乘 法 和 减 
法 运算 。 
A 和 B 两 个 集合 的 和 ， 也 称 集合 的 并 ， 写 作 A 十 B， 它 的 
成 员 是 A 的 成 员 或 B 的 成 员 。 例 如 
《1，2，3] 与 【2，4，5] 的 和 是 [1，2，3，4，5] 
A 和 B 两 个 集合 的 交 ， 写 作 AXxB， 它 的 成 员 既 是 A 的 成 
员 又 是 B 的 成 员 。 例 如 ， 
1，2，3，4，5] 和 [2，8，5] 的 交 是 〔2，5] 
A 与 B 的 差 集 ， 也 称 集合 差 ， 写 作 A 一 B， 它 的 成 员 是 A 
的 成 员 ， 但 不 是 B 的 成 员 。 例 如 ， 
[人 3，5，8，9] 减 (3，4，5] 的 差 是 〔8，9] 。 
2 .集合 类 型 定义 
虽然 在 集合 论 中 对 作为 集合 成 员 的 对 象 没 有 限制 ， 但 在 
PASCAEL 中 ,只 能 使 用 受 限 制 的 集合 数据 类 型 .一 个 集合 的 
成 员 必须 都 为 同一 种 类 型 , 它 就 是 集合 的 基 类 型 . 基 类 型 必须 
是 简单 类 型 ， 即 除 任何 实 型 以 外 的 纯 量 类 型 。 集 合 类 型 可 通 
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过 保留 字 SET OF 和 一 简单 类 型 来 定义 。 例 如 ， 
个 YPE 
FRUITSm= (APPLE，BANANA,ORANGE, GRAPE， 
MANGO，WALNUT，PEANUT， 
PEAR，PEACH ) ， 
FOOD= SET OF FRUITS， 
CHARACTERSe=SET OF CHAR， 
LATTER= SET OF 'A14..Z0 
VAR 
EATABLES1I，EATABLES2 : FOOD， 
A，CH CHARACTERS， 


PASCAL 规 定 一 个 集合 的 成 员 最 多 512 个 ， 基 类 型 的 
序 值 必须 在 0 至 511 。 

3 .集合 的 一 般 形式 

在 PASCAL 中 , 集合 的 最 一 般 形 式 是 包含 在 方 括 号 中 
用 逗号 隔 开 的 一 系列 表达 式 。 例 如 . 

0 

[1，2，31] 

[X，Y，2Z] 

[1..5] (等 价 于 集合 [1，2，3，4，5] ) 

区 009 

5 ] 〈 空 集 ) 

4. 集 合 的 比较 和 运算 

集合 运算 符 按 其 优先 级 分 为 三 类 ， 


(1) 关 集合 交 
(2) 十 集合 并 
一 集合 差 
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(3)= 集合 相等 


<<> ”集合 不 等 
<<= ”集合 包含 于 
>= ”集合 包含 


IN ”检查 集合 成 员 资格 。IN 左 边 的 运算 量 是 一 
个 表达 式 ， 而 右边 的 运算 量 是 一 个 与 它 由 
联系 的 集合 类 型 表达 式 。 如 果 左 边 运算 量 
是 右边 运算 量 的 一 个 成 员 ， 结 果 为 真 ， 否 
则 为 假 。 
例如 ， 


[A,B]=fA,B] 为 真 
人 CREANH] 为 让 
[7 ，2Z ]《=[A AN 
"0"。..'9)?] 
人 AZ>=[A PP LT ] 
APPLE IN [APPLE,PASTRY,SUGER] 为 真 
APPLE IN [STRAVBERRIES,CREAM] 为 假 


经 常 使 用 成 员 关系 检 查 ， 对 于 说 明 复 杂 的 判别 是 很 有 用 
的 。 例 如 ， 
如 果 希 望 将 输入 的 数字 字符 进行 计数 ， 其 余 的 不 必 计 
数 ， 可 用 如 下 语句 ， 
READ(CH ) ， 
IF(CCH='!'1')ORCCH='20)ORCCH= '31)OR (CH= 141) 
OR (CH='5') OR (CH='6') OR (CH='75) 
OR (CH='8') OR (CH='9') OR (CH= '100) 
THEN J :一 J 十 1; 
这 样 表示 语句 太 长 ， 执 行 起 来 慢 。 也 可 写成 ， 
IF(CH >='0!) AND (CH<='9') THEN J: =J+1 
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但 用 集合 可 简化 为 ， 

IF CH IN [0 .. 9] THEN J: 王 J 十 1， 

5.。 集 合 赋值 

使 用 赋值 语句 ， 可 以 将 集合 表达 式 的 值 赋 给 集合 变量 。 
集合 表达 式 由 集合 常数 、 集 合 变量 、 集 合 运算 符 和 集合 一 般 
形式 组 成 。 例 如 ， 


TYPE ASCII=SET 0F 0， 
VAR、 4 PRINT， ALLCHARS ， ASCII; 
BEGIN 
ALLCHARS:=[0..127]5 
NOPRINT:=[0..31,127]3; 
0 :=ALLCHARS- NOPRINT 


我 们 举 1 个 使 用 集合 的 例子 。 
例 4 编制 一 程序 ， 根 据 用 户 的 需要 建立 一 个 集合 , 然 
AR 


_PROGRAH 人 0UTPUT) ， 
TYPE NM=1 . 
S= 人 人 NM; 
VAR X,Y1,Y2:S; 
TI:M; 


J:INTEGER， 
BEGIN 

X:=[1..20]; Y1:=[ ]; READ (I) ?， 
WaitE I IN X D0 


IN 
yY1:=Yl+f[I] 多 
READ(I) 

END ; 
Y2:=Y1; 


FOR J:=1 T0 15 D0 
Ir J IN Y2 THEN Y2:=Y2-[J]; 
WRITE("Y1=['); 
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FOR I:=1 T0 20 D0 
IF I IN Y1 THEN VRITE(I。 “); 
VRITELN("] 7) 5 

WRITE("Y2=["); 

FOR I:=1 T0 20 0 
IF I IN Y2 THEN WRITE(I， ”0); 
VRITELN( ] ") 

END .。 


11.5 数组 类 型 


1 .数组 的 定义 

一 个 数组 是 变量 的 一 个 有 序 集合 ， 其 中 所 有 变量 具有 同 
样 的 类 型 。 每 个 变量 可 以 通过 下 标 来 访问 。 下 标 是 纯 量 类 型 
的 表达 式 ， 由 方 括号 之 间 的 下 标 类 型 表达 式 组 成 。 用 一 个 下 
标 类 型 和 一 个 基 类 型 说 明 一 个 数组 类 型 。 例 如 ， 


TYPE DIRECTION=(X,Y,Z); 
VECTOR= ARRAY[IDIRECTION] 0F RENKLY 
NUMBER=ARRAY[1..10] 0F INTEGERY 
VAR UVY:VECTOR; 
NUB:NUNMBERs 8 

VECTOR 的 下 标 类 型 是 DIRECTION， 基 类 型 是 RE 
AL。 类 型 NUMBER 的 下 标 类 型 是 子 界 类 型 1 ..10， 基 类 型 
是 整 型 。 

类 型 VECTOR 的 每 一 个 变量 都 有 三 个 分 量 ， 和 类 型 
DIRECTION 的 三 个 值 一 一 对 应 。 变 量 V 的 3 个 分 量 是 
VCX],VCY]，VCZ]。 

V 的 每 一 个 分 量 是 一 个 实数 型 变量 ， 它 可 用 在 能 使 用 实 
数 型 变量 的 任何 地 方 。 例 如 ， 

VCXI]， 一 2。.1; VCYI]: 一 3 95 VC[CZ]:=5.0， 
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赋值 和 比较 运算 允许 在 任何 两 个 相同 类 型 变量 之 间 进 
行 ， 因 此 ， 可 将 一 数组 整个 赋值 给 另 一 个 数组 。 

2 .多维 数 组 

数组 的 基 类 型 可 以 是 任何 数据 类 型 ， 特 别 地 ， 它 可 以 是 
另 一 个 数组 ， 这 种 结构 称 作 多 维 数组 。 例 如 ， 


TYPE CHESSB0OARD=ARRAY[1. .8] OF 
ARRAY[1..8] 0F CHESSPIECE》” 
CUBE=ARRAY[SIZE] OF ARRAY[SISE] 
0F ARRAY[SIZE] 0F-REAL; 
一 个 多 维 数组 可 以 通过 多 重 下 标 来 方便 地 定义 。 上 面 的 
定义 可 重 写 为 ， 
TYPE CHESSBOARD=ARRAY[1..8,1..8] 0F 
CHESSPIECE; : 
CUBE=ARRAYLSIZE,SIZE,SIZE] 0R 
AL : 
VAR BOARD:CHESSB0OARD: 
S0LD:CUBE; 


因此 ， 下 列 赋值 是 合法 的 。 

SOLD [1，1，1] :一 2.1; 

BOARD [1，!1] :一 BOARD (1，2] ， 

3 .字符 型 数组 

字符 型 数组 是 带 有 一 个 下 标 ， 且 其 元 素 为 标准 纯 量 型 字 
符 的 数组 。 在 PASCAL 里 ， 定 长 字符 串 可 以 用 字符 的 紧缩 
数组 表示 。 例 如 ， 

TYPE 

STRING= 了 PACKED ARRAY [1..20] OF CHAR， 

VAR 

N，CH :STRING， 

类 型 STRING 的 变量 可 象 其 它 任 何 数组 一 样 使 用 。 它 位 
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可 被 赋值 并 且 可 进行 全 部 六 种 关系 运算 。 串 变量 和 囊 表 达 式 
计算 出 来 的 值 不 能 赋 给 字符 型 数组 。 例 如 ， 

CH :='THIS IS TWENTY CHARS4 

N :='THIS IS FIFTEEN4 

N<CH 为 真 

N>CH 为 候 


下 面 给 出 两 个 例子 ， 说 明 数 组 的 应 用 。 
例 5 求 两 个 矩阵 M 和 N 的 积 工 。 


PRKOGRAN ARRAYDEMOKINP0T， 0UTPUT)* 
CONST S 


TYPE SUBSCRipi- T1..SIZE; 
MATRIX=ARRAY[SUBSCRIPT,SUBSCRIPT] 
0F REAL; 
VAR M,N,L:MATRIX3A,B:REAL; 
R,S,T:SUBSCRIPT; 
BEGIN 
FOR S:=1 T0 SIZE D0 
FOR T:=1 T0 SIZE D0 
BEG IN. 
READ (A,B) 
(* 输 入 矩阵 各 元 素 的 数据 水 ) 
M[S,T] :=Ai; 
N[S;yT] :=B; 
END; 
FOR R:=1 T0 SIZE D0 
FOR S:=1 T0 SIZE D0 
BEGIN 
L[R,S]:=0; 
FOR T:=1 T0 SIZE D0 


LI[R,S]:=C[R,S]+M[R,T]sN[R,S] 
END; 


FOR R:=1 T0 SIZE D0 
FOR S:=1 T0 SIZE DO 
WRITE(L[LR,S]) ; 


(*# 输 出 矩阵 L 米 ) 
WRITELHN 
END 
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例 6 将 任意 几 个 数 按 从 小 到 大 排列 。 
PROGRAM SORTCIINPUT，OUTPUT)， 
VAR 
A: ARRAY [1..N) OF REAL， 
N，I, J: INTEGER， 
TEMP REAL， 
BEGIN 
READCN)， 
FOR I:=1 TON DO 
READ(A [ID )， 《输入 要 排序 的 数 ) 
FOR I:=1 TON-1 DO 
FEOR J:= 一 ITO N-1 DO 
IF A [J)] >A [J+IH THEN 
BEGIN 
TEMP :一 A [J] ， 
A []J]] :一 A [J 二 1 ， 
A [J+1)] :一 TEMP 


END， 
FOR 1:=1TON DO 
WRITEGCA [D ，， 的 | (输出 结果 ) 
END. 
11.6 串 类 型 


11.6.1 串 变 量 及 其 赋值 


串 是 字符 组 成 的 序列 。 由 单 引 号 括 起 来 的 字符 序列 称 为 
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串 常量 。 在 PASCAL 语 言 中 串 作 为 一 种 数据 类 型 ， 可 以 用 
一 维 紧缩 字符 数组 来 定义 ， 

TYPE STRING=PACKED ARRAY [1..N] OF 
CHAR 

其 中 N 为 大 于 1 的 整 型 常数 ， 它 定义 了 一 个 包含 字符 个 
数 不 超过 N 的 串 类 型 。 可 以 如 同 使 用 数组 变量 一 ' 样 对 串 类 型 
的 变量 赋值 及 给 以 下 标 。 

1. 串 变量 说 明 

在 PASCAL 中 ， 串 是 一 种 预定 义 类 型 ， 由 STRING 标 
识 。 串 类 型 实质 上 是 字符 型 紧缩 数组 ， 它 的 字符 个 数 可 在 0 
到 规定 的 上 界 之 间 动 态 地 变化 。 但 串 变 量 和 字符 型 紧缩 数组 
之 间 不 能 相互 赋值 。 

串 变 量 定义 由 保留 字 STRING 和 方 括号 中 的 最 大 长 度 组 
成 。 长 度 规定 为 0 到 255 之 间 的 整 型 常量 。 串 变量 的 默认 长 度 
为 80 个 字符 。 例 如 ， 

VAR TITLE , STRINC， (默认 长 度 为 80 个 字符 ) 

NAME :STRINC [30] ， (指定 长 度 为 30 个 字符 ) 

检索 串 变量 是 从 第 一 个 字符 至 最 后 一 个 字符 ， 不 检索 空 
串 。 因 此 TITLEK1) 表 示 串 TITLE 的 第 一 个 字 符 ，TITLE 
[LENGTH (TITELE ) ] 是 串 TITELE 的 最 后 一 个 字符 。 

2. 串 表达 式 

串 表 达 式 由 串 常量 、 串 变量 、 函 数 命名 符 和 运算 符 构 
成 。 
“十 ”可 用 来 联接 动态 串 。CONCAT 函 数 的 功能 和 它 一 样 。 
例如 ， 

'APPLE' 十 'PASCAL'='APPLEPAS9SCAL' 

IA' 十 'B' 十 'C' 一 'ABC' 
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12 十 !. 十 '34! 一 !12 .34" 

关系 运算 符 =、<、>> 、<>> 、<= 、>> 一 的 优先 级 低 
于 联接 运算 符 。 当 比较 两 个 串 时 ， 是 从 左 至 右 按照 它们 的 
ASCII 值 逐个 比较 。 如 果 两 个 串 前 面部 分 相同 ， 则 长 的 串 大 
于 短 的 串 ， 如 果 两 个 串 从 第 i 个 字符 开始 不 同 ， 则 ASCII 值 
小 的 第 i 个 字符 所 在 的 串 小 于 另 一 个 串 ， 仅 当 两 个 串 的 长 . 度 
和 内 容 对 应 相同 时 它们 才 相 等 : 例如 ， 

IA'<1B' 真 

1123"<112345) 真 

11231< 1421 真 

1IAPPLEI<'APPLE' 假 

IAPPLE'='APPLE， 真 


3 . 串 赋 值 

丘 值 运算 符 可 用 来 将 串 变 量 、 串 常量 、 串 标准 过 程 和 函 
数 赋值 给 串 变量 。 例 如 ， 

AGE :一 11815 

NAME : ='PETER'， 

NAME1 :一 COPY(CTITLE，1，30)? 


串 亦 能 被 说 明 为 常量 。 例 如 ， 

CONST SAMMY='HI THERE'， 

注意 ,不 能 对 长 度 为 0 的 串 进 行 俭 索 ， 否 则 产生 错误 .为 
避免 此 种 错误 ， 可 先 用 LENGTH 函 数 检测 其 长 度 。 

仅 含 一 个 字符 的 串 值 和 CHAR 类 型 的 变量 值 不 是 同一 
回 事 ， 它 们 属于 不 同 的 数据 类 型 。 但 仅 包 含 一 个 字符 的 串 常 
量 和 CHAR 类 型 常量 ， 正 好 具有 相同 的 形式 ， 这 种 常量 既 
可 作 CHAR 类 型 的 变量 值 ， 又 可 作 串 值 来 使 用 。 
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11.6.2， 串 标准 函数 和 过 程 


1 .长 度 函 数 

格式 ，LENGTH (STRG ) 

这 个 函数 返回 串 表 达 式 STRG 的 长 度 ， 即 串 中 字符 的 个 
其 结果 类 型 为 整数 。 如 ， 

若 GEESTRING: 王 /1234567/ 

则 LENGTH (GEESTRING ) 返回 值 为 7。 

2 . 求 子 串 位 置 函 数 

格式 ，POS (SUBSTRG，STRG ) 
SUBSTRG 和 STRG 可 以 是 串 表达 式 或 串 变量 。POS 函 
数 寻 找 STRG 串 变量 中 第 一 次 出 现 的 SUBSTRG 串 变量 的 值 
的 开始 位 置 ， 并 返回 该 位 置 值 。 串 中 第 一 个 字符 位 置 是 1。 


如 果 没 有 找到 ， 则 返回 值 为 0。 例 如 ， 
STUFF，= /TAKE THE BOTTLE WITH A METAL 
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CAP， 
PATTERN :='TAL 人 
POS(PATTERN，STUFE) (返回 值 为 26) 
POS('X/，STUFF ) (返回 值 为 0) 
3. 字 符 串 连接 函数 


格式 ，CONCAT ( STRI，STR2，…，STRN ) 

将 串 表 达 式 STR1，STR2，…STRN 连 接 成 一 个 新 的 字 
符 串 。 例 如 ， 

STI:=/THIS IS A STRING7， 

ST2 := 人 THIS IS A LONG STRING/ 

CONCAT (ST1I，' 一 '，ST2 ) 返回 值 为 'THIS IS A 
STRING 一 THIS IS A LONG STRING'。 
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注意 ，STR1，STR2，…，STRN 可 以 是 串 常 量 ， 也 可 
以 是 有 值 的 串 变 量 。 

4. 取 子 串 函数 

格式 ，COPY ( STRG，INDEX，COUNT ) 

STRG 为 串 表 达 式 ，INDEX 和 COUNT 为 整 型 表达 式 。 
该 函数 返回 STRG 中 从 INDEX 开 始 的 COUNT 个 字符 所 组 
成 的 一 个 子 串 。 如 果 INDEX 超 出 了 串 的 长 度 ， 则 返 回 一 个 


空 串 。 例 如 ， 
TL :='KEEP SOMETHING HERE， 
COPY(TL，6，9) (返回 !SOMETHING'D) 
COPY(TL，16， 4 ) (返回 !HERE' ) 
COPY(TL，21，2 ) (返回 1) 
5. 删 除 子 串 过 程 


格式 ， DELETE ( STRG，INDEX，COUNT ) ， 
其 中 STRG 为 串 变量 ，INDEX 和 COUNT 是 两 个 整 型 
表达 式 。DELETE 删 除 STRG 中 从 INDEX 开 始 的 COUNT 
个 字符 的 子 串 。 删 改 后 的 串 仍 放 在 串 变 量 STRG 中 ， 经 它 回 
送 给 调用 程序 段 。 例 如 ， 
ST1:= "ABCDEFGH "; 
DELETE(ST1,2,4); (#* 结 果 ST1:="AFGH" 米 ) 
0YEESTUPFEDs ="THIS STRING HAS FAR T00 
MANY CHARACTERS IN IT.。'; 
DELETE(OVERSTUFFED,P0S("HAS'， 


0VERSTUFFED)+3,8); 
WRITELN《OVERSTUFFED) 


将 输出 ， 
THIS STRING HAS MANY CHARACTERS IN IT， 
6. 捅 入 子 串 过 程 
格式 ，INSERT ( SUBSTRG，STRG，INDEX ) ， 
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SUBSTRG 为 串 表 达 式 ，STRG 为 串 变 量 ， INDEX 为 
整 型 表达 式 。INSERT 把 SUBSTRG 的 值 择 入 到 串 STRG 的 
INDEX 位 置 上 。 例 如 ， 

ST1: 三 ABCDEFG'“ , 则 INSERT (“ 22'/，ST1,3 ) ; 
的 结果 为 /ABZZCDEFG' 。 

7. 将 整 型 转换 成 串 类 型 

格式 ，STR (LONG，STRG ) ， 

LONG 为 整 型 值 ， 可 为 长 整数 型 。STRG 为 串 变 量 。 
STR 过 程 将 LONG 的 值 转换 成 一 个 串 后 存放 于 STRG 中 。 例 
如 ， 

IT:=1234; STR(t,STR1) 给 STR1 的 值 为 "1234” 
INTLONG:=123456789; 

STR(INTLONG ,INTSTRING) ; 
Re 123456789， 
INSERT("。" ,INTSTR 


ING 
LENGTH(INTSTRING) - 1) 
WRITELN("$" ,INTSTRING) 


将 输出 ， $1234567.89 

最 后 ， 作 为 串 标 准 过 程 和 函数 应 用 的 一 个 例子 ， 给 出 下 
面 字 处 理 程序 。 

例 8 ” 找 出 句子 中 的 单词 ， 以 空格 来 区 分 单词 。 

本 程序 对 用 户 键入 的 句子 ( 80 个 字符 长 ) ， 逐 个 输出 名 
子 中 以 空格 分 隔 的 单词 。 


PROGRAMH SCANNER， 

CONST SPACE=” “"; 

VAR PHRASE:=STRING; 
FIRST:INTEGER ; 


BEGIN 

VRITELN(" TYPE IN A SENTENCE AND PRESS 
RETURN ") 5 

READLN (PHRASE) ; 

WRITE 


*。226。 


?HRASPE:=CONCAT(PHRASE,SPACE)， 
WHILE LENGTH(PHRASE)>1 D0 
BEGIN - 
FIRST*=P0S(SPACE ,PHRASE) ; 
VRITELN(CQPY(PHRASE,1,FIRST-1))3 
DELETE (PHRASE,1, FIRST) 
END 
END 。 
习题 十 一 


1. 为 什么 要 使 用 纯 量 类 型 数据 ?” 纯 量 类 型 数据 有 什么 特点 ? 
2. 假 设 定 义 TYPE COIN=(PENNY，NICKEL，DIME， 
QUARTER，HALEFDOLLAR)， 求 下 列 各 表达 式 的 值 。 


PRED (PENNY) PRED(DIME) PRED(HALFDOLLAR) 
SUCC (PENNY) SUCC (QUARTER) 

SUCC (HALFDOLLAR) 

0RD (PENNY) 0RD (NICKEL) 0RD(QUARTER) 
PENNY<DIME NICKEL=DIME 
QUARTER>=HALFDOLLAR 


3. 使 用 子 界 类 型 数据 有 什么 好 处 ? 有 郧 些 地 方 经 常 使 用 这 种 数 据 
类 型 ? 
4. 定 义 TYPE COUNTER=1..20) 
VAR A，B，C:COUNTER， 
下 列 语句 哪些 是 正确 的 ， 哪 些 是 错误 的 ? 
A :一 200 二 100，B : =100+20;， C :=B-30) 
B :=PENNY，A :一 31.5; C :一 /A/: 
5. 定 义 VAR X, Y，Z :INTEGER [25] ， 
A，B :INTEGER， 
D,， 也 :，REAL， 
下 列 语句 哪些 是 正确 的 ， 哪 些 是 错误 的 ? 
A :=X+Y;X: = 一 YA :=TRUNC(CZ)， 
A:=D+Y; 了 E: =2 又 :一 D 十 卫 ) 
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Y:=B+D, D:=B-E,，Y:=2Z 一 
6. 求 下 列表 达 式 的 值 。 


"12AB "<"AB12" "12'《"1211， 
'APPLE PASCAL"= "APPLEPASCAL 
"TIME10"《= "TIME10" 


7. 定 义 VAR _ TITLE :STRING (30] ， 
A:CHAR， 
下 列 语句 中 哪些 是 正确 的 ， 哪 些 是 错误 的 ? 


TITLE:='18-3-89'; TITLE[5]:="PETER'"; 
TITLE:=， "3 TITLE:=21+ 7"A"; 
TITLE[1]:="A'"; As:=TITLE[i]; 
h:='B"; As='BC'; TITLE:=A; 


8. 定 义 VAR S, T: STRING， 求 下 列表 达 式 的 值 。 


小 ENGTH("APPLE PASCAL') 
LENGTH("THIS IS A PEN") 
P0S('TH','THIS .IS A PEN') 
P0S('A' 'THIS IS AhA PEN'") 
CONCAT('TURB0',"PASCAL' ,LANGUAGE') 
CONCAT('THE NUMBER OF'"，"ZER0"，'IS'， 
"COUNT') 
CoPY('TOTAL 0F POSITIVE IS 
COUNT' ,10,8) 
DELETE('"TOTAL OF NEGATIVE IS 
COUNT' ,6,12) 


车 
S:='"D0OES SHE ENJOY RIDING? "和 
T:="D0OES ENJOY RIDING3?” 
INSERT("N0",S,23) 
INSERT("SHE'" ,T,6) 
STR("8192" ,8S) 
STR('100012",S) 
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9. 给 出 TYPE NUMBERSET= SET OF 1..15， 编 一 程序， 
打印 出 NUMBERSE 人 的 变量 的 值 。 例 如 ， 

其 成 员 为 3、8、9 和 11 的 集合 ， 应 打印 出 (3， 8，9，11] 。 

10. 输 入 一 系列 字符 ， 将 数字 字符 ， 英 文字 母 字符 和 其 它 字 符 分 
别 计 算 ， 并 求 出 各 占 的 百分比 ， 输 出 格式 要 求 如 下 ， 

NAME NUMBER PERCENT 


工 了 BETTER ? ? 帮 
DIGIT ? ? 狗 
OTHER ? ? 鹏 


遇 到 “!4 ”停止 计数 ， 用 集合 类 型 。 
11. 建 立 两 个 集合 ， 然 后 对 它们 进行 并 、 交 和 差 运算 ， 最 后 输出 运 ， 
算 的 结果 。 

12. 列 出 下 列 集合 的 全 体 元 素 。 
(1)SET OF (RED，GREEN，BLUE，WHITE] ， 
(2)SET OF 1..8) 
(3)SET OF /A' ../P'， 
13 . 求 下 列 集合 表达 式 的 值 。 
(1) [1..5] 。 [3，5] 
《2) (1..4] 十 [3，4] 
(3) (〔2..8] 一 (3..8] 
14. 下 列 布尔 表达 式 中 哪些 得 出 真 值 ? 
(1) [1，2，3] = [1..3] 
(2) [1，2，3] <= [1..3] 
(3)3IN [4，5，6，7] 
(4)7A7/ IN [/P/， 1/X7， 7Y1， 〈A7] 
15. 某 本 书 可 由 下 述说 明定 义 ， 
CONST LINELEN=70， 

PAGESIZE 屯 =55， 

THICKNESS= 330， 
TYPE LINBE=ARRAY [1!.,LINELEN]J OF CHAR， 
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PAGE=ARRAY [1..PAGESIZE] OF LINE， 
VOLUME= ARRAY 【1..THICKNESS ] OF 
PAGE， 
VAR BOOK :VOLUME， 
指出 下 述 每 一 表达 式 的 类 型 和 值 ， 
BOOK [25] ，BOOK (187] .〔50] ，BOOK 〔46]07]〔10] 
给 一 个 合适 的 格式 ， 并 编写 打印 BOOK 内 容 的 程序 。 
16 .定义 两 个 数组 类 型 ， 其 下 标 分 别 为 子 界 和 纯 量 类 型 ， 基 类 型 分 
别 为 整数 和 实数 类 型 。 建 立 一 个 包含 十 项 由 整数 元 素 构成 的 数组 ， 然 
后 将 这 个 数组 中 间 的 六 项 内 容 依次 传送 给 另 一 个 包含 六 项 由 实数 元 素 
构成 的 数组 ， 输 出 后 一 个 实数 数组 。 
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第 十 二 章 ，” 记录、 文件 和 指针 类 型 


12.1 记录 类 型 


一 个 记录 是 有 若干 分 量 的 一 种 结构 变量 。 一 个 记录 的 分 
量 可 以 有 不 同 的 类 型 ， 而 且 它们 是 通过 名 字 访 问 的 。 

1. 记 录 类 型 定义 

记录 类 型 定义 由 保留 字 RECORD、 域 ( 又 称 字段 ) 表 
以 及 终止 符 保 留 字 END 组 成 。 域 表 由 一 系列 用 分 号 隔 开 的 记 
录 组 成 。 每 一 个 记录 都 由 一 个 或 多 个 用 逗号 分 隔 的 标识 符 、 
冒号 和 类 型 组 成 。 因 此 ， 每 个 记录 规定 了 一 个 或 多 个 域 的 类 
型 和 标识 符 。 例 如 


TYPE FULLNAME=RECORD 
SURNAME : 0 
NOOFFNAMNES 
人 STRiGr16] 
E 


DATE=RECORD 
DAY:1..31; 
MONTH : (JAN， FEB ,MAR,APR,NAY,JUN， 
JULY,AUG,SEP， 0CT， NOV， DEC) ; 
和 1901..2000; 


ND; 
VAR 了 BIRTH， DATB 
ROY:FULLNAME ; 


其 中 FULLNAME 类 型 由 SURNAME 和 FORENAME 
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两 个 元 素 组 成 。 

这 两 个 元 素 都 属于 串 类 型 。 _ 

DATE 类 型 由 三 个 元 素 组 成 ， DAY，MONTH 和 YE- 
人 AR。 

这 三 个 元 素 属 于 三 种 不 同 的 数据 类 型 ， 

DAY 属 于 子 界 类 型 ， 

MONT 属 于 纯 量 类 型 ， 

YEAR 属 于 整数 类 型 

假设 生日 BIRTH 表 示 1949 年 10 月 1 日 ， 男 孩 BOY 表示 
TOM ADDYMAN。 可 以 通过 如 下 赋值 语句 来 实现 ， 

BIRTH.DAY :一 1， SURNAME : =/ADDYMAN/， 

BIRTH.MONTH : =OCT，FORENAME , = /TOM/， 

BIRTH.YEAR : 一 1949 

从 这 些 赋 值 语 句 可 以 看 出 ， 记 录 元 素 是 通过 变量 名 与 域 
名 来 表示 的 。 应 把 变量 名 与 域名 用 一 个 圆 点 连 起 来 。 

APPLE PASCAL 支 持 标准 PASCAL 的 紧缩 记录 类 
型 。 例 如 :下面 是 一 个 具有 4 个 域 的 记录 说 明 ， 由 于 将 它们 
说 明 为 紧缩 记录 ， 因 此 整个 记录 只 占用 一 个 16 位 的 存储 字 。 

TYPE R=PACKED RECORD 

I，J， 开 :0..31; 
B:， BOOLEAN 
END， 


另外 ,APPLE PASCALEL 对 记录 类 型 说 明 有 两 点 限制 ， 

(1 ) 空域 是 非法 的 ( 即 RECORD END;，)， 将 出 现 
(2 ) 变 体 括号 END 前 的 分 号 也 要 导致 错误 。 
2.WITHH 语 名 
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利用 WITH 语句 ， 可 以 象 简单 变量 那样 来 访问 记录 。 
WITH 语句 的 格式 如 下 : 

WITH 变量 表 >DO《 语句 》 

WITH 语句 就 象 “ 打 开 一 个 记录 ”， 使 得 域名 就 象 变量 
名 一 样 使 用 。 例 如 ， 

让 BIRTH 记 录 变 量 表示 1949 年 10 月 1 日 ， 可 以 用 下 述 语 
句 ， 

WITH BIRTH DO 

BEGIN 

DAY :一 1; 

MONTH : 一 OCT， 

YEAR， 一 1949 

END， 

这 表示 ， 打 开 BIRTH 的 “疆域 ”，YEAR，MONTH 
和 DAY 都 获得 了 “解放 ”， 书 写 和 阅读 都 方便 多 了 。 

3. 记 录 变 体 

记录 类 型 的 语法 提供 了 一 种 变化 的 记录 结构 ， 它 允许 一 
个 记录 可 以 包含 一 个 固定 部 分 ， 一 个 变 体 部 分 或 者 包含 两 
者 。 但 如 果 包 含 两 者 ， 固 定 部 分 必须 在 前 面 。 变 体 部 分 包含 
域 表 ， 因 此 变 体 记录 可 以 骨 套 。 

例如 考虑 三 种 几何 形状 ， 和 矩形、 三 角形 和 圆 。 和 形 可 用 
高 和 宽 来 描述 


TYPPE 人 
HEIGHT2z 民 已 Ai 3 
0 
END; 


然而 三 角形 不 能 用 这 个 方法 来 描述 。 对 于 三 角形 ， 合 适 
的 构造 类 型 是 ， 
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TYPE  TRIANGLE=RECORD 
SIDE1,SIDE2:REALY 
ANGLE :REAL 
END; 


只 要 给 出 圆 半 径 就 够 了 。 类 型 GEOMETRICFIGURE 
(几何 图 形 ) 就 可 以 变 体 记 录 来 定义 ， 


TYPE FIGURE=(RECT,TRI,CIRC); 
GEOMETRICFIGURE=RECORD 

XIND:FIGURE;(* 固 定 部 分 *) 
CASE FIGURE 0F (# 变 体 部 分 #) 
RECT: (VWIDTH,HEIGHT:REAL) 
CIRC:(RADIUS:REAL) 3 
TRI:(SIDE1,SIDE2,ANGLE:REAL) 
END 


CASFE 在 条 件 语句 中 的 选择 因子 是 一 个 变量 ,而 在 记录 
说 明 中 的 情况 选择 因子 则 是 一 个 类 型 。 在 这 个 例子 中 ， 
CASE 选 择 因子 是 类 型 FIGURE， 该 类 型 只 能 为 纯 量 类 型 。 
下 面 给 出 一 个 函数 ， 该 函数 的 结果 为 几何 图 形 的 面积 。 
对 每 一 种 图 形 ， 所 涉及 的 实际 计算 是 完全 不 同 的 。CASE 语 
名 将 用 来 为 每 一 个 变 体 选 择 恰 当 的 计算 。 
FUNCTION AREA(PFIG:GEOHETRICFIGURE) :REAL; 
CONST  PI=3.14159265353; 
BEGIN 
WITH FIG D0 
CASE RIND OF 
RECT:AREA:=HEIGHT*WIDTHs; 
CIRC:AREA:=PISSQR (RADIUS) ， 
和 
下 ND ; 
例 1 设 一 个 矩形 的 长 为 4， 宽 为 5， 调 用 上 面 的 函数 ,其 
程序 如 下 ， 
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PROGRAH REC0RDDENDO ; 
TYPE FIGURE= (RECT,TRI,CIRC); 
GEOMHETRICFIGURE=RECORD 

KIND:FIGURE; 
CASE RIGUBRE 0PF 
RECT:(WIDTH ,HEIGHT:REAL) 3; 
CIRC: (RADIUS:REAL) ; 
TRI:(SIDE1,.SIDE2,ANGLE:REAL) 
END; 


VAR RECTFIG:GEOMETRICEFIGURBE3;A:REAL:; 
FUNCTION AREA(FIG:GEOMETRICFIGURE) :RERALsS 


(* 上 面 函 数 的 内 容 水 ) 


END ; 
BEGIR 
WITH RECTFIO D0 
BEGJLN 
有 IND : =RECT3 
HEIGHT: 二 
和 


=AREA(RECTPTG) 
Bi 
tRTTEC RECTANGLE AREA IS",A) 
EN 


12.2 文件 类 型 


文件 是 由 相同 类 型 的 元 素 序 列 组 成 的 。 任 何 时 候 只 有 文 


件 的 当前 成 份 需 要 存 于 主 存储 器 中 ， 文 件 本 身 通 常 保 存在 计 


算 机 的 外 存储 器 上 ( 如 磁盘 、 磁 带 等 ) 。 
对 于 每 一 个 在 PASCAL 程 序 中 说 明 的 ， 取 名 为 下 的 文 


FE 人， 


件 ,系统 自动 引入 一 个 具有 文件 成 份 类 型 的 缓冲 区 变量 , 记 为 
它 代表 当前 涉及 的 文件 的 一 个 记录 。 用 文件 指针 表 示 
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指向 当前 的 文件 记录 ， 任 何 时 候 只 有 文件 指针 所 指示 的 文件 
记录 才 是 可 以 访问 的 。 

对 于 文件 类 型 或 任何 其 它 具 有 文件 成 份 的 类 型 ， 赋 值 运 
算 和 相等 关系 是 无 效 的 。 


12.2.1 文件 类 型 定义 


文件 类 型 的 定义 如 下 ， 

FILE OF( 类 型 》 

例如 

TYPE INTFILE=FILE OF TINTEGER3 
PRODUCTNAME=STRING[80] ; 
PRODUCT=RECORD 

NAME:PRODUCTNANE， 
ITEMNUMBER:REAL 
INSTOCK :REAL; 


MINSTOCK2:REALS 
SUPPLIER:INTEGERY 


ENDs 
VAR PRODUCTFILE:FILE OF PR0ODUCT4 


文件 元 素 的 类 型 可 以 为 除 文件 类 型 之 外 的 其 它 类 型 ， 但 
最 常用 的 是 标识 符 。 


12.2.2 文件 操作 


下 面 叙 述 文件 的 打开 和 关闭 过 程 以 及 指示 是 否 已 达到 指 
定 文件 末尾 的 函数 。 你 识 符 FILEID 在 下 面 都 表示 已 说 明 的 
一 个 文件 变量 标识 符 。 

1.REWRITE 过 程 

格式 ，REWRITE (FILEID，TITLE ) ， 

TITLE 是 产生 任何 合法 文件 名 的 字符 串 。 文 件 变量 
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FILEID 被 赋 以 文件 名 ， 以 后 所 有 关于 FILEID 的 课 作 就 是 
对 磁盘 文件 TITLE 的 操作 。 本 过 程 常 用 来 建立 一 个 新 文 件 ， 
并 打开 这 个 文件 准备 对 它 输 入 输出 。 它 也 可 以 用 来 打开 已 经 
存在 的 文件 ， 但 这 样 要 破坏 该 文件 而 建立 起 一 个 新 的 文件 目 
录 。 

2.RESET 过 程 

格式 ，RESET (FILEID，TITLER ) ; 

或 RESET (FILEID ) ; 

TITLE 是 文件 名 。 该 过 程 为 读 和 写 打开 一 个 现存 的 文 ， 
件 。 
对 于 第 一 种 调用 ， 如 果 指 定 的 文件 已 经 打开 ， 则 发 生 IL/ 
O 错 ， 文 件 状态 保持 不 变 ; 如 果 文 件 不 存在 ， 也 发 生 I/O 
错 。 

第 二 种 调用 仅 用 于 一 个 已 打开 的 文件 ， 它 将 文件 指针 指 
到 文件 刚 被 打开 时 的 位 置 。 

如 果 不 是 交互 文件 ， 则 RESET 自 动 完成 一 个 GET 操 
作 ， 即 将 文件 的 第 一 个 记录 装 入 文件 缓冲 区 变量 ， 并 将 文件 
指针 指向 第 二 个 记录 。 如 果 是 交互 文件 ， 则 不 执行 GET 操 
作 ， 此 时 文件 缓冲 区 变量 的 值 没 有 定义 ， 文 件 指针 指向 第 一 
记录 。 

3.CLOSE 过程 

格式 ，CLOSE (FILEID [，OPTION] ) ， 

OPTION 为 下 面 四 种 选择 之 一 ， 

(1) NORMAL， 执行 一 个 正常 的 关闭 ， 即 简单 地 置 文 
件 为 关闭 状态 。 如 果 文 件 是 用 REWRITE 打 开 又 是 一 个 磁盘 
文件 的 话 ， 则 它 从 磁盘 文件 目录 中 有 出 除 。 

(2)LOCK:， 如 果 磁 盘 文件 是 由 REWRITE 打 开 的 ， 
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则 文件 被 永久 地 加 入 磁盘 目录 中 ， 并 在 最 后 一 个 文件 分 量 后 
置 文件 结束 标志 。 否 则 执行 一 个 NORMAL 关 闭 。 如 果 与 文 
件 和 名 相配 的 是 一 个 现存 的 磁盘 文件 ， 则 此 文件 原先 的 内 容 被 

(3 ) PURGE: 如 果 文 件 是 磁盘 文件 ， 则 它 从 磁盘 目 
录 中 删除。 如 果 磁 盘 文件 已 经 存在 ， 并 且 是 用 REWRITE 打 
开 的 ， 那 么 原先 的 文件 保留 在 磁盘 目录 中 不 变 。 如 果 不 是 磁 
盘 文 件 ， 则 相连 的 设备 脱 袖 。 

(4) CRUNCH， 和 LOCK 相 似 ， 只 是 将 文件 结束 慰 
志 锁 在 最 后 一 次 存 取 的 位 置 上 ， 即 最 后 一 次 被 访问 的 文件 记 
录 后 的 任何 内 容 均 被 抛弃 。 如 果 与 文件 名 相配 的 是 一 个 现存 
文件 ， 则 此 文件 原先 的 内 容 也 被 丢失 。 

若 省 略 OPTION， 则 执行 NORMAL 关闭。 

无 论 哪 种 选择 ， 都 将 关闭 标志 文件 ， 使 得 文件 缓冲 区 变 
量 FILEID 和 A 没 有 定义 。 

程序 结束 前 总 是 要 关闭 打开 了 的 文件 ， 否 则 没有 关闭 的 
文件 变 成 不 确定 状态 。 

4. 了 OF 函数 

格式 ，EOF [ (FILEID ) ] 

如 果 省 去 (FILEID ) ， 则 默认 为 INPUT 文 件 。 

如 果 文 件 指针 指 在 磁盘 文件 尾部 ， 即 最 后 一 个 文件 元 素 
以 外 ， 则 刁 OF 为 真 ， 否 则 为 假 。 

文件 被 打开 后 ， 卫 OF 为 假 ， 文 件 关 闭 后 已 OF 为 真 .。 无 
论 何 时 只 要 下 OF(FILEID ) 为 真 ， 则 FILEIDA 没 有 定 义 。 

GET 操 作 后 ， 若 GET 试 图 访问 一 个 文件 末尾 后 的 记录 ， 
则 已 OE 为 真 。 键 盘 读 时 ， 仅 当 键 入 文件 结束 符 CTRL 一 C 
(ASCI I3 ) 时 下 OF 才 为 真 。 


238 ， 


12.2.5 类 型 文件 


类 型 文件 是 由 变量 说 明 指 定 了 类 型 的 文件 。 PASCAL 
为 类 型 文件 提供 以 下 三 个 特殊 过 程 。 

1.GET 过 程 和 PUT 过 程 

FILEID 是 一 个 已 说 明 为 类 型 文件 的 标识 符 。 

这 两 个 过 程 分 别 用 于 从 一 个 类 型 文件 中 读 入 罗 辑 记录 和 
将 一 个 示 辑 记录 写 到 类 型 文件 上 。 

GET (FILEID ) 把 文件 当前 所 指 的 记录 内 容 赋 给 缓冲 
区 变量 FILEIDA， 并 将 文件 指针 推 到 下 一 个 文件 记录 位 
置 。 执 行 GET 操 作 时 ， 若 下 一 个 文件 记录 不 存在 ， 则 了 OF 
为 真 ，FILEID 和 中 的 结果 值 无 定义 ， 故 GET 的 作用 仅 在 执 
行 前 也 OF 为 假 时 才 有 定义 。 

PUT (FILEID ) 把 FILEID 和 的 认 容 写 到 文件 当前 所 
指 的 位 置 ， 并 将 记录 指针 推 到 下 一 个 记录 位 置 。 下 一 个 使 用 
相同 FILEID 的 GET 或 PUT 操作 ， 将 顺序 地 访问 文件 的 下 
一 个 记录 ， 直 到 下 一 次 物理 上 相 联 系 的 盘 块 不 再 作为 当前 工 
作 块 时 ， 才 可 对 磁盘 进行 实际 存 取 。 强 迫 块 被 写 的 操作 类 
是 ,对 文件 任何 记录 的 SEEK ( 查找 ) 。RESET 和 CLOSE 
当 越过 块 边界 时 ， 对 文件 的 相继 GET 或 PUT 操作 ， 将 引起 
IMO 错 。 

下 面 用 几 个 简单 例子 来 说 明了 REWRITE、RESET、 
CLOSE、EOF、GET 和 PUT 的 使 用 方法 。 

例 2 .建立 一 个 实数 文件 。 

PROGRAM MAKEFILE; 


VAR F:FILE OF REALS 
TI:INTEGER， 
GIN 
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REVRTTE(P，*APPLE:REALS ,DATA') ; 
(# 打 开 新 文件， 准备 写 兴 ) 
FOR I:=1 T0 1 
全 商 和 10 个 实 政 ， 存 入 文件 水 ) 
VRITE('-->'); (* 置 一 提示 符 于 屏幕 米 ) 
READ(F^); (* 饶 盘 读 入 实数 到 "中 必 ) 
PUT'(F) (# 将 该 数 存 入 文件 闵 ) 


BNDs 
CLOSE (了 ,LOCK) 
END 。 


该 程序 运行 后 ， 在 APPLE 1: 失 上 建立 一 个 新 的 文 促 
*"EALS.DATA， 它 有 10 个 实数 分 量 。 
例 3 ” 读 文件 数据 到 屏幕 。 


PROGRAM READFILE; 
VAR F:FILE 0F REALY 

BEGIHN 

RESET(P,，"APPLE1:REALS.DATA'")s 人 
刘 I NOT EOF(F) D0 (> 读 取 数据 水 


EGIN 
WRITE(P^); (* 显 示 当 前 数据 交 》 
GET(F) (# 询 进 到 下 一 个 数据 水 ) 


END 
请 CLOSE(P) (# 关 闭 文 件 米 ) 


本 程序 是 将 例 2 建立 的 文件 数据 读 到 屏幕 上 显示 出 来 。 
例 4 文件 复制 。 


PROGRAM COPYPITLE; 
TYPE IMAGE=PACKED 人 1..14] 0P 
B00LEAN 
IMAGEFILE=FILE OF IMAGE ; 

VAR F,G:IMAGEFILE; 
BEGIKN 

RESET(F ， “PPLE1 : FF.DATA 7") ; 

REVRITE(G， "WORKDISK:G0G.DATA?) 3 
WHILE NOT EOF(F) D0 
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BEGIN 
0^ 和 


PT 9ETCP) 
END; 《#WHILE#) 
CLOSE(F) 3 LS LOCK》 


该 程序 将 APPLE1 : 扒 上 的 FF.DATA 数 据 文件 复制 
到 WORKDISK : 盘 上 ， 并 以 名 GG.DATA 存 盘 。 
2.SEEK 过 程 
格式 ，SEEK (FILEID，RECNUM ) ， 
FILEID 是 一 个 已 打开 的 类 型 文件 标识 符 ， RECNUM 
是 一 个 解释 为 文件 记录 号 的 整数 值 。 
本 过 程 改变 文件 指针 ,使 得 对 文件 的 下 一 个 GET 或 PUT 
用 到 由 RECNUM 所 指明 的 FILEID 的 记录 。 文 件 中 的 记录 
从 0 开始 编号 .两 个 SEEK 调 用 之 间 须 执行 一 个 GET 或 PUT， 
否则 会 造成 意 想不到 的 后 果 。SEEK 执 行 后 下 OF 返回 假 ， 后 
跟 GET 或 PUT 将 秒 下 OF 回 到 适当 值 。 
例 5 用 SEEK 来 随机 存 取 和 修改 文件 记录 。 
PROGRAM 0 0UTPUT) 
VAR RECNUMBER :INTEGER 
FNAME:STRINGs 
VITALSFILE 0F RECORT 
NAHE;STRING[20]; 
DAY,NHONTH ,YEAR:INTEGER* 
4ADDRESS:STRING[5015 
ALIVE:BO0OLEAN 


D; 
BEGTIN 
VRITE('ENTER FILENANE")3 fs 获得 文件 名 米 》 
READLN (FNAME) ; 
(#$I-#) 《〈# 暂 停 和 使 FNAME 不 存在 时 ， 
用 个 全 让 


不 致 出 错 
RESET(YITALS,，FNAME) 5 


。241。 


(* 用 RESET 保 护 文件 更 有 内 容 米 》 
IF IORESULTK>0 THEN REWRITE(VITALS ,FNAME) ; 
(*IORESULT 不 等 0, 文 件 不 存在 ， 
用 REVRITE 打 开 ) 
(#*$I+#) 〈# 恢 复 I/0 检 查 米 ) 
WHILE TRUE D0 (*TRUE 为 真 ， 重 复 执行 ， 
人 只 有 EXIT 执行 才 退 出 程序 冰 ) 


WRITE 人 ENTER RECORD NUMBER'")S 
(* 请 键入 记录 号 水 ) 
READLN (RECNUMBER) ;  (#* 得 到 记录 号 ， 
键入 CTRL-C， 则 E0F 为 真水 ) 
IF EOF THEN 
BEGIN 
CLOSE(yVITALS ,LOCK) ; 
EXIT(PROGRAN)  (* 退 出 程序 水 ) 
END :; 
SEEK(VITALS ,RECNUMBER) ; 
(* 得 到 指定 的 记录 水 ) 
GET(VITALS) ; 
WITH  VITALS^ D0 (* 修 改 记录 炒 ) 
BEGIN 
WRITELN (NAME) ， 
WRITE("ENTER CORRCT NAME'")， 
READLN (NAME) ; 
WRITELN(DAY) ; 
WRITE('ENTER CORRCT DAY'"); 
READLN(DAY) ; 
0 


(下 面 SEEK 同 一 记录 。 因 为 当前 记录 进入 VITALS 信 
以 后 ，GET 操 作 已 将 文件 指针 推进 到 下 一 记录 处 ) 
SEEK (VITALS ,RR_NUMBER) ; 
PUT(VITALS);  (# 修 改 的 记录 写 入 文 秆 ， 
若 EOF 真 ， 退 出 程序 水 ) 
IF EOF(VITALS) THEN 
BEGIN 
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VRITELN(C'NOT ENOUGH FILE SPACE'); 
EXIT(PROGRAM) 
END 


END 
END 。 


12.2.4 文本 文件 和 交互 文件 


1 .文本 文件 

文本 文件 不 是 某 一 类 型 值 的 序列 ， 这 是 与 其 它 文件 类 型 
的 不 同 之 处 。 一 个 文本 文件 的 基本 元 素 是 字符 ， 它们 构成 
行 ， 各 行 由 行 结束 符 忆 /来 标志 ( ASCII 13 ) ,文件 结束 标志 
为 CTRL-C (ASCII 3 ) 。 行 的 长 度 是 变化 的 ,因而 某 一 字 
符 的 位 置 是 无 法 计算 的 。 所 以 ， 文 本 文件 只 能 顺序 处 理 ， 对 
文本 文体 不 能 同时 执行 输入 输出 操作 。 

使 用 保留 字 TEXT 来 说 明 一 个 文本 文件 变量 。 为 了 读 而 
打开 一 个 磁盘 文本 文件 ， 先 调用 RESET 过 程 ， 为 了 写 而 打 
开 一 个 磁盘 文本 文件 ， 先 调用 RE 下 WRITE 过 程 。 

2.。 文 本 文件 操作 

PASCAL 为 文本 文件 和 交互 文件 提供 了 以 下 五 个 专用 
过 程 和 一 个 函数 。 

(1)READ 过 程 

格式 ，READ ( [FILEID，] VBLS ) ，; 

FILEID 为 已 打开 的 文本 文件 或 交互 文件 标识 符 。 若 
FILEID 省 略 ， 就 默认 为 INPUT 文 件 。VBLS 是 由 逗号 分 开 
的 一 个 或 多 个 变量 。 变 量 可 为 字符 、 串 、 整 数 、 长 整数 和 实 
数 类 型 。 对 串 变 量 应 使 用 READLN。 

本 过 程 从 文件 中 读 值 并 将 它们 依次 赋 给 变量 。 

对 于 字符 变量 ，READ 从 文件 中 读 取 一 个 字符 并 把 它 赋 
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给 该 变量 。 当 读 到 行 结束 符 -/ 时 , 则 将 空格 符 一 (ASCII 32 ) 
赋 给 访 变 量 。 当 忆 OF 为 真 时 ， 赋 给 字符 变量 的 值 没 有 定义 。 
一 次 READ 后 ， 下 一 次 READ 或 READLN 时 ， 总 是 从 被 读 
取 的 字符 的 下 一 个 字符 开始 。 对 于 文本 文件 ， 读 到 文件 的 最 
后 一 个 字符 时 ， 也 OF 为 真 ， 当 读 到 一 行 的 最 后 一 个 字符 或 
下 OF 为 真 时 ， 节 OLN 为 真 。 对 于 交互 文件 ， 读 到 文件 结束 
符 时 下 OF 为 真 ， 当 读 到 一 行 的 结束 符 或 已 OF 为 真 时 ,EOLN 
才 为 真 。 如 想 读 取 一 行文 本 ， 要 用 EOLN 检 查 是 否 已 读 到 一 
行 的 结尾 。 但 用 带 有 串 变 量 的 READLN， 就 不 必 检 查 下 OF 
而 进行 整 行 读 。 

对 于 数值 类 型 变量 ，READ 期 待 读 取 一 串 能 解释 为 同类 
型 数值 的 字符 。 位 于 该 串 前 的 空格 、 行 结束 符 总 是 被 跳 过 。 
该 串 后 面 总 应 有 一 个 空格 、 行 结束 符 或 文件 结束 符 。 若 跳 过 
若干 空格 和 行 结 束 符 后 找 不 到 数字 串 ， 则 发 生 IMO 错 。 和 否则 
该 串 被 转换 成 数值 赋 给 变量 。 

每 次 READ 后 ， 再 次 READ 时 ， 则 从 刚 被 读 取 的 数字 
串 的 最 后 一 个 字符 的 后 一 个 字符 开始 。 若 数字 串 的 最 后 一 个 
字符 为 一 行 的 最 后 一 个 字符 ， 则 OLN 为 真 ， 若 为 文件 最 后 
一 个 字符 ， 则 EOF 和 EOLN 同 时 为 真 。 若 下 OF 前 除了 空格 外 
没 别 的 ， 读 取 数 字 风 为 0。 

不 管 文本 类 型 还 是 交互 类 型 ， 带 数值 变量 的 READ 动 作 
是 相同 的 。 

(2 ) READLN 过 程 

格式 ，READLN ( [FILEID，] VBLS ) ， 

该 过 程 多 许 按 行 来 读 取 字 符 和 数值 变量 。 参 量 意义 和 
READ 相 同 。 

READLN 的 工作 和 READ 相 似 ， 不 同 的 只 是 最 后 ~- 个 
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变量 被 读 入 值 后 ， 行 上 剩 下 的 内 容 被 跳 过 。READLN 执 符 
后 ， 如 有 后 继 行 ， 下 一 个 READ 或 READLN 将 从 下 一 行 第 
一 个 字符 开始 ， 如 没 后 继 行 ， 正 OF 为 真 。 

对 于 则 变量 ，READLN 将 读 入 行 结束 符 前 的 所 有 字符 ， 
但 不 包括 行 结束 符 。 重 复 执行 带 串 变量 的 READLN， 将 起 
到 把 文件 的 相继 行 作为 串 来 读 入 的 作用 。 

(3) WRITE 和 WRITELN 过 程 

这 两 个 过 程 将 字符 、 串 和 数值 变量 的 值 写 进 文件 ，W- 
RITELN 还 进一步 允许 按 行 输出 。 

格式 ，WRITE ([FILEID，][ITEMS] ) ; 

WRITELN ( [FILEID，][ITEMS] ) ， 

FILEID 为 已 打开 的 文本 文件 或 交互 文件 标识 符 ， 若 省 
略 它 ， 则 默认 为 OUTPUT。ITEMS 是 用 逗号 分 隔 开 的 一 个 
或 多 个 项 目 。 每 个 项 目 可 取 下 列 形式 之 一 ， 

EXPR 

EXPR，FIELDWIDTH 

EXPR， FIELDWIDTH，FRACTIONLENGTH 

其 中 己 XPR 是 被 写 到 文件 的 表达 式 。FIELDWIDTH 
是 一 个 整 型 表达 式 ， 指 出 被 写字 符 的 最 少 个 数 。FRACTTI- 
ONLENGTH 是 整 型 者 达 式 ， 当 忆 XPR 为 实 型 时 ， 指 出 小 数 
点 后 的 数字 个 数 ， 它 的 默认 值 为 5，FIELDWIDTH 的 默认 
值 为 1。 对 于 正 实数 ， 第 一 个 数字 前 总 写 上 一 个 空格 ， 负 实 
数 ， 负 号 占据 该 位 置 。 

WRITE 对 表达 式 求 值 ， 并 把 它们 的 值 顺序 地 写 到 文 件 
中 。 若 EXPR 具 有 数值 类 型 ，WRITE 按 PASCAL 的 数 格 式 
将 EXPR 的 值 转换 成 字符 串 写 到 文件 并 将 指针 指向 下 一 个 元 
素 。 若 XPR 具 有 字符 、 串 或 紧缩 数组 类 型 ，WRITE 将 字 
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符 写 到 文件 并 将 指针 指向 下 一 个 元 素 。 
例 6” 逐 行 读 入 文件 ， 移 去 每 行 中 的 前 导 旬 号， 并 将 
们 写 到 输出 文件 中 。 


PR0OGRAH FLUSHSPERI0D# 
CONST PERI0D=， 
VAR INFILE， OUTFILE: TEXT: 
INNAME ,0UTNANE ,LINEBUF:STRINGs* 
BEGIN 
WRITE(NAME OF INPUT FILE: ?)3 
READLN (INNAME)3;  … 
IF P0S.('.。' ,INNAME)=0 THEN 
(* 若 未 键入 扩展 名 ,加 上 .TEXTs) 
TNNAME:=CONCAT(INNANME,，' .TEXT') 3 
(*$I-#)  (# 关 闭 I/0 检 测 水 ) 
RESET(INFILE, INNAME) ; 
(* 打 开 已 存在 的 文件 米 ) 
IF IORESULT<>0 THEN 
(*I0RESETK>0, 文 件 不 存在 米 )?)/ 
BEGIN 


WRITELN("FILE NOT FOUNT ")5 
下 和 和 


END 
(s$T+s) (# 恢 复 I/0 检 测 水 ) 
WRITE(NANME OF OUTPUT FILE: ") 乡 
READLN (OUTNAME) ; 
IF P0S('。" ,0UTNANME)=0 THEN 
0UTNAME :=CONCAT(OUTNAME 。" .TEXT ") 
REVRITE (OUTPFILE ,OUTNAME) ; 
(* 移 去 每 行 前 导 空 白 后 写 到 0UTFILE#) 
WHILE (NOT EOF(INFILE))AND (NOT EOF(OUTFILE) ) 


D0 
BEGIN 
READLN(INFILE ,LINEBUF) 
IF LENGTH(LINEBVUF)7>O THEN' 
"TITF P0S(PERIOD,LINEBUF)=1 THEN 
DELETE (LINEBUF ,1,1)3 
VRITELN(OUTFILE,LINEBUF) 
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IF E0OF(OUTFILE) THEN 
(* 输 出 文件 不 完全 将 它 丢 弃 米 


BEGIN 
VRITE("NOT ENOUGH ROOM IN 
0UTPUT FILZ ! 7)5 
CLOSE (0UTFILE,PURGE) 
END 


ELSE CLOSE (OUTFILE,LOCK) 
Ne 
END . 


(4) PAGE 过 程 

格式 ，PAGE (FILEID ) ， 

FILEID 为 一 打开 的 文本 文件 或 交互 式 文件 。 该 过 程 将 
一 个 页 顶 字符 (ASCII 12 ) 送 给 文件 。 

(5)EOLN 函 数 

格式 ，EOLN (FILEID ) 

本 函数 回 送 一 个 布尔 值 ， 指 示 文 件 指针 是 否 在 行 的 末 
尾 。 如 果 省 略 FILEID， 则 默认 为 INPUT 文 件 。。 文 件 打 
开 后 ，EOLN 立 即 为 假 。 文 件 关闭 后 下 OLN 为 真 。 当 GET 
找到 一 个 行 结束 符 人 时 ，EOLN 为 真 ， 此 时 把 一 空格 符 
(ASCII 32 ) 而 不 是 行 结 束 符 装 入 文件 缓冲 区 变量 。 

3 .交互 文件 

和 文本 文件 一 样 ， 交 互 文件 也 是 一 种 字符 文件 ， 区 别 在 
于 交互 文件 处 理 RESET、READ 和 READLN 的 方式 和 文 
本 文件 不 同 。 使 用 保留 字 INTERACTIVE 可 以 说 明 一 个 交 
互 文件 变量 。 

当 一 个 PA SCAL 程序 从 一 个 文本 文件 读 字符 时 ， 首 先 
必须 用 有 R 世 5ET 打 开 此 文件 。RESET 自 动 地 执行 一 个 GET 
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操作 ， 即 把 文件 的 第 一 个 字符 送 入 文件 缓冲 区 变量 ， 然 后 文 
件 指 针 指向 下 一 个 字符 。 对 于 随后 带 来 字符 类 型 变量 的 
READ 或 READLN 语 句 ， 其 工作 过 程 是 先 把 存放 在 文件 组 
冲 区 变量 中 的 字符 赋 给 该 字符 型 变量 ， 然 后 执行 一 个 GET 
操作 。 

如 果 是 交互 文件 ， 则 用 RESET 打 开 文 件 时 不 执行 GET 
操作 ， 缓 冲 区 变量 没有 定义 ， 文 件 指针 仍 指向 文件 的 第 一 个 
字符 。 因 此 ， 要 使 READ 或 READLN 能 读 到 字符 。 须 先 安 
排 一 个 GET 操 作 ， 然 后 取出 GET 放 入 缓冲 区 变量 中 的 宁 符 。 
这 与 文本 文件 的 READ 执 行 顺序 正好 相反 。 

换 名 话说 ， 若 CH 为 字符 型 变量 ，INFILE 为 TEXT 型 
文件 ， 则 READ (INEILE，CH ) 等 价 于 

CH:=INFILEA 人 ; 

GET (INFILE ) ， 

NEPILEAINTERACTIYE 玉 READ (INF- 
ILE，CH ) 等 

Ri 

CH:=INFILEA， 

使 用 交互 类 型 文件 的 主要 原因 是 ， 象 键盘 这 样 的 设备 ， 
字符 没有 键入 之 前 是 不 可 能 对 它 进 行 GET 的 。 因 此 当 程 序 从 
键盘 上 读 取 字符 时 ，TEXT( 文 本 ) 类 型 文件 会 遇 到 麻烦 。 因 
为 启动 程序 后 ， 系 统 用 人 RESET 自 动 打开 INPUT 文 件 ， 假 如 
INPUT 具 有 TEXT (文本 ) 类 型 ， 那 么 一 个 GET 将 等 待 从 
键盘 上 接收 字符 。 当 键入 某 字 符 如 A 时 ， 字 符 A 送 文件 缓冲 
区 变量 ， 进 入 READ 语 句 ， 程 序 又 等 待 输入 。 直 到 键入 第 二 
个 字符 时 ， 第 -- 个 字符 A 才 显示 出 来 。 定 义 INPUT 为 
INTERACTIVE 类 型 文件 就 吉 免 了 这 种 麻烦 。 因 为 对 于 
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INTERACTIVE 类 型 ， 直 到 程序 执行 REEAD 或 READLN 
时 才 执 行 GET 操 作 。 
例 7 ”该 程序 用 来 说 明文 本 文件 和 交互 文件 的 细微 区 别 。 


PROGRAMH SRKETCH; 
VAR X:CHAR; FF:TEXT; 


BEGIN 

和 

四 汪 交合 克 - 

PUT (F) 

CLOSE(P,LOCK) ; 

RESET(F ，"VWORKDISK:B .DATA")S 
WHILE NOT EOFCF) D0 

BEGIN 


READ (F ,X) ; 
WRITELN (X) 


END 
CLOSE (F) 
END 


程序 中 F 定 义 为 文本 文件 ， 第 5~8 行 完成 将 字母 A 送 到 
文件 FE， 作 为 它 的 唯一 文件 记录 ， 并 关闭 FE。 第 9% 行 重新 打开 
与 FE 相 联系 的 文件 。 第 10~~15 行 完成 F 的 记录 读 入 到 屏 划 并 
关闭 它 。 结 果 在 屏幕 上 显示 字母 A。 

将 上 面 程 序 中 的 F 改 为 交互 类 型 文件 ， 其 它 均 不 作 改 变 
(即将 第 3 行 的 F，TEXT， 改 为 F，INTERACTIVE，) 。 
重新 运行 该 程序 ， 结 果 在 屏幕 上 显示 两 行 单个 字母 A。 

这 是 什么 原因 ? 当 了 为 交互 类 型 文件 时 ， 第 9 行 的 RES- 
ET 语句 并 不 自动 执行 一 个 GET 操 作 ， 文 件 指 针 指 向 F 的 第 
一 个 记录 ，EOF (了 ) 为 假 。 当 执行 到 READ 语 句 时 ， 对 于 
交互 文件 是 先 执行 GET 操 作 ， 将 当前 指向 的 记录 即 字母 A 送 
缓冲 区 变量 FE 人 ， 文 件 指针 指向 下 一 个 元 素 。 然 后 执行 X:= 
FE 人 A， 这 样 第 13 行 的 写 语 句 就 将 第 一 个 字母 A 输 出 到 屏幕 。 此 
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时 ，EOF (F ) 继续 为 假 ， 第 二 次 执行 READ 语 名 ， 这 次 
GET 造 成 EOF (了 ) 为 真 ， 留 下 FA 人 处 于 没有 定义 状态 。 
APPLE PASCAL 处 理 这 种 没有 定义 的 状态 ， 是 保留 FA 人 
等 于 它 的 前 一 个 值 ， 就 是 字母 A， 因 此 不 正确 地 印 出 了 第 二 
个 字母 A。 


12.2.5 无 类 型 文件 


无 类 型 文件 只 要 用 FILE 来 说 明 ， 无 须 指 明文 件 的 成 份 
类 型 。 例 如 ， 

VAR F:FILEE， 

定义 为 一 个 无 类 型 文件 变量 。 

无 类 型 文件 只 能 用 于 为 实现 高 速 数据 传送 的 内 部 函数 
BLOCKREAD 和 BLOCKWRITE。 

一 个 无 类 型 文件 可 以 看 作 是 一 个 没有 文件 缓冲 区 变量 
FA 的 文件 。 这 种 文件 的 所 有 输入 /输出 必须 由 函数 BLOC- 
KREAD 和 BLOCK WRITE 来 完成 。 

这 两 个 函数 用 于 对 无 类 型 文件 传送 数据 。 它 们 回 送 一 个 
表示 被 传送 的 数据 块 数 的 整数 值 。 

格式 ，BLOCKREAD (FILEID，ARRAYNAME ， 
BLOCKS[，RELBLOCK] ) 

BLOCKWRITE (FILEID，ARRAYNAME，BL- 
OCKS[，RELBLOCK] ) 

其 中 FILEID 是 已 说 明 为 无 类 型 文件 的 标识 符 。ARR- 
AYNAME 为 说 明了 的 数组 标识 符 ， 数 组 长 度 是 512 的 整数 
倍 ，ARRAYNAME 可 带 下 标 以 指出 数组 中 的 起 始 位 置 。 
BLOCKS 是 被 传送 的 块 数 。RELBLOCK 是 相对 于 文件 开 
头 的 块 号 。0 块 为 文件 的 第 一 块 。 如 果 没 有 出 现 术 ELBLO- 
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K， 则 进行 顺序 地 读 / 写 。 

使 用 这 两 个 函数 应 特别 小 心 ， 因 为 没有 注意 数组 的 界 。 
当 文件 的 最 后 一 块 被 读 时 ， 正 OF 为 真 。 

例 8 应 用 BLOCKREAD 和 BLOCKWRITE 的 一 个 例 
了 


PROGRAM FILEDEMOY 
VRAR G6,F:FILE; 
BADI0O:B00LEAN; 
BLOCKNUMBER ,BLOCKSTRANSFERRED :INTREGER 
BUFFER : PACKED ARRAY[L0..511] OF CHAR; 
BEGIN 
BAD TO: =FALSE; 
RESET(G,，" SOURCE.DATA") 
REWRITE(F，"DESTINATION '); 
BLOCKNUMBER:=0; 
BLOCKSTRANSFERRED :=BLOCKREAD(G,BUFFER ， 1， 
BLOCKNUMBER) 3 
WHILE (NOT EOF(G))AND(CIORESULT=0) 
AND (NOT BADI0) 
AND (BLOCKSTRANSFERRED=1) D0 
BEGIN 


BLOCKSTRANSFERRED:=BLOCKWRITE(F,BUFERER， 
1, BLOCKNUMNHBER) ; 
BADI0O:=((BLOCKSTRANSFERRED<1) 
0R(IORESULT<>0) ) ; 
BLOCKNUMBER:=BLOCKNUMBER+13 - 
BLOCKSTRANSFERRED :=BLOCKREAD(G,BUFFER ， 
1, BLOCKNUMNBERy) 


下 ND 3 
CLOSE(CF ,LOCK) 


上 面 的 程序 从 自 举 盘 上 读 一 个 名 为 SOURCE . DATA 
的 磁盘 文件 ， 并 把 它 复 制 到 自 举 盘 上 另 一 个 叫 DESTINAT- 
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ION 的 文件 中 。 


12.2.6 预定 义 文 件 


标准 PASCAL 的 标准 文件 INPUT 和 OUTPUT 分 别 指 
的 是 键盘 读 和 显示 器 输出 。 此 外 ，APPLE PASCAL 还 提 
供 了 一 种 KEYBOARD 的 标准 文件 。INPUT 和 KEYBOA- 
RD 的 区 别 在 于 ， 当 INPUT 用 来 指 键盘 时 ， 键 入 的 字符 自动 
显示 在 屏幕 上 ， 而 KEYBOARD 就 不 在 屏幕 上 显示 输入 字 
符 。 

INPUT、OUTPUT 和 KEYBOARD 都 是 交互 类 型 文 
件 ， 当 PASCAL 程 序 开始 执行 时 ， 它 们 都 是 由 系统 用 RES- 
也 了 自动 地 打开 。 


12.2.7 葵 入 输出 检查 


编译 选择 项 可 用 来 控制 产生 I/O 错 误 检 查 代码 ( 除 UN- 
ITREAD、UNITWRITE、BLOCKREAD 和 BLOCKW- 
RITE 外 ) 。 软 认 值 为 打开 状态 ， 即 ( 米 $I 十 举 ) 。 在 每 次 
调用 I/O 操 作 后 产生 一 个 I/O 检 查 子 程序 ， 如 果 I/O 出 错 则 终 
止 程序 执行 ， 显 示 出 错 提 示 信 息 。 

如 果 关 闭 I/O 检 查 ， 即 ( # $I 一 交 ) , 则 不 执行 运行 时 
间 检 查 。 这 时 I/O 操 作 的 结果 必须 通过 调用 标准 函数 IORE- 
SULT 来 代替 监视 。I/O 出 错 不 会 造成 程序 终止 ， 但 会 终 目 
再 一 次 I/O 操 作 。 而 当 清 除 错误 条 件 后 ， 调 用 IORESULT 
返回 0 值 ， 程 序 可 适当 使 用 。IORESULT 返 回 0 值 表示 操 
作成 功 ， 其 它 值 表示 I/O 操 作出 错 (下面 介绍 IORESULT 
函数 时 列 出 了 I/O 可 能 产生 的 出 错 信息 ) 。 

在 发 生 I/O 错 而 又 不 希望 中 断 程 序 执行 的 情况 下 ， 使 用 
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IORESULT 函 数 是 非常 方便 的 。 
例 9 连续 请 求 一 文件 名 ， 直 到 成 功 了 打开 ( 即 R 节 SET) 
这 个 文件 ( 即 直到 找到 该 文件 ) 为 止 。 


有 0PENINFILEY 
BEGIN 


了 EPEAT 
WRITE( ?ENTER NANE OF INPUT RRILEY) 人 
READLN CINRILENANED 
《#$I-#)  〈(#* 关 闭 I/0 检 查 米 ) 
RESET(INFTILE,，INRFILRENAME)》 3 
R 了 (* 焦 复 I/0 检 查 阔 ) 
0 0); 
0 OK TREE 
妇 RITE( CAN NOT FIND FILE7? ,INFILENAME) 3 
UNTIL 0K; 
ND ; 


下 面 介绍 IORESULT 函 数 。 
格式 ， IORESULT 
该 函数 回 送 一 个 整 数值 ， 它 反映 了 上 一 次 完成 的 IO 操 
作 的 状态 。 2 
下 面 列 出 IORESUITLT 可 能 回 送 的 值 
无 错 ， 完 成 正常 I/O。 
未 用 。 
坏 设备 卷 号 。 
非法 操作 ( 例如 从 PRINTER : 读 ) 。 
未 用 。 
设备 丢失 一 一 没有 联机 。 
文件 丢失 一 一 文件 不 在 目录 中 。 
标题 错 一 一 非法 文件 名 。 


中 mo 避 盖 吓 
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8 无 空间 一 一 盘 上 没有 足够 的 空间 。 

9 无 设备 一 设备 未 安装 。 

10 在 指定 的 卷 上 没有 这 样 的 文件 。 

11 复制 文件 标题 。 

12 ”试图 打开 一 个 已 打开 的 文件 。 

13 ”试图 访问 一 个 关闭 了 的 文件 。 

14 错误 的 输入 格式 一 - 读 实数 或 整数 数据 时 出 错 。 
15 ”循环 缓冲 区 溢出 一 一 输入 到 达 太 快 。 

16 写 保护 错 。 

64 设备 错 


磁盘 上 错误 的 地 址 和 数据 。 


12.3 指针 类 型 


1. 静 态 变 量 和 动态 变量 

前 面 各 章 所 讨论 的 量 都 是 静态 变量 。 天 态 变量 必 须 用 
VAR 说 明 。VAR 说 明确 定 了 变量 的 类 型 和 标识 符 。 标 识 符 
可 以 用 来 引用 变量 。 以 这 种 方式 说 明 的 变量 与 所 在 程序 体 有 
相同 的 生命 期 。 若 一 个 程序 的 存储 情况 在 写 程序 时 就 能 预 
计 ， 则 可 以 使 用 静态 变量 。 

动态 变量 是 应 可 执行 语句 的 要 求 而 建立 的 。 动 态 变量 不 
在 VAR 中 说 明 。 因 此 ， 动 态 变量 不 能 用 标识 符 直 接 引 用 。 
对 于 类 型 为 T 的 每 一 个 动态 变量 ,都 有 一 个 关联 的 类 型 为 AT 
〈 指向 工 的 指针 ) 的 值 ， 这 个 值 用 来 访问 相应 的 动态 变 量 ， 
并 且 这 个 值 就 是 新 建立 变量 的 存储 地 址 。 

一 个 动态 变量 只 有 当 它 明显 地 被 破坏 或 者 计算 终止 时 才 
不 存在 。 

由 于 动态 变量 可 以 属于 任何 类 型 IT， 因 此， 可 以 动态 地 
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建立 记录 变量 。 如 果 这 些 记 录 包 含 一 个 或 多 个 AT 类 型 的 
域 ， 那 么 可 以 通过 把 记录 连接 在 一 起 的 方法 来 建立 复杂 的 结 
构 ， 人 参见 图 12.1。 


国人 
-> 


一 个 蓄 碍 变量 动态 变量 


图 12.1 存储 在 动态 变量 中 的 第 -一 个 序列 可 把 动态 变量 组 织 在 链 
中 ， 以 建立 能 用 来 构造 序列 的 线性 表 。 
2. 动 态 变量 的 建立 
动态 变量 是 通过 调用 标准 过 程 NEW 来 建立 的 。 过 程 
NEW 的 简单 调用 形式 是 NEW (了 ) ， 其 中 参数 P 是 类 型 为 
和信 T 的 指针 型 变量 。 该 过 程 的 作用 是 建立 一 个 类 型 为 T 的 动 
态 变量 ， 在 称 为 “ 堆 ” 的 PASCAL 存 储 区 中 为 该 动态 变量 
分 配 空间 ， 并 且 也 给 参数 P 赋 予 类 型 为 AT 的 一 个 值 ， 使 得 
可 以 访问 动态 变量 。 
指针 类 型 的 格式 是 ， 
人 类 型 标识 符 
伤 如 ， 下 面 的 说 明 适 合生 成 图 12 .1 中 的 表 。 
TYPE PTR=^ITEM; 
ITEMH=RECORD 


VAL:INTEGERY 
NEXT:PTR 
E 


ND 3: … 
VAR P,LIST:PTR; 
X: INTEGER:; 
INFILE:FILE OF INTEGER; 
NEV(P) 


”255- 


这 里 类 型 PTR 定 义 为 一 个 指针 类 型 ， 它 指向 类 型 ITEM 
的 变量 。 这 里 的 变量 P、LIST 是 指针 变量 ， 指 向 类 型 为 
ITEM 的 记录 。 

3 .使 用 指针 

在 PASCAEL 中 ， 指 针 可 按 下 列 方式 使 用 ， 

被 赋值 

作为 参数 

作 等 与 不 等 的 检查 

用 来 访问 动态 变量 

每 一 种 指针 类 型 都 有 一 组 信 ， 其 中 包括 值 NIL( 空 ) 。 
NIL 不 指向 动态 变量 ， 但 它 可 以 把 值 眩 给 一 个 指针 变量 。 例 
如 ， 

P:=NIL， 
是 正确 的 。 它 表示 一 个 空 指针 ， 常 作 链 的 终点 。 它 在 图 12 .1 
中 用 来 指明 表 的 结束 。 

下 面 以 实例 来 阐述 动态 变量 的 访问 。 前 面 P 和 LIST 都 是 
静态 变量 ， 它 们 指向 类 型 为 ITEM 的 动态 变量 。 赋 值 语 名 ， 

P:=LIST， 
使 得 P 的 指针 值 与 LIST 相 同 。 记 号 P 人 表示 “由 P 引 用 的 动 
态 变 量 ”， 因 此 P 人 为 ITEM 类 型 。 于 是 ， 


PA:=LISTA， 
表示 把 LTST 所 指 的 动态 变量 的 值 赋 给 由 P 所 指 的 动态 变量 。 
由 于 PA 人 为 IJTEM 类 型 ， 所 以 ， 可 使 用 威 选择 内。 例如 ， 
PA 人 .VAL: 一 X， 
下 面 给 出 一 个 指针 应 用 的 例子 。 
例 10 ”利用 指针 进行 排序 。 
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?ROGRAM POINTEFRDEM0O(OUTPUT， INTFILE， NEWFILE)” 
TYPE PTR=^ITEM; 
ITEM=RECORD 
VAL:INTEGER3 
NEXT:PTR 
1 END; 
VYAR X:INTEGER3 
P ,LIST:PTR; 
TINTFILE,NEWFILE:FTLE .OF TNTEGER3 
BEGIN 
RESET(TNTFILE， "WORKDTSK:[TST1.DATA， ) ; 
REWRITE(NEVFILE， WORKDISK:LIST2.DATA7'); 
WHILE NOT EOF(INTFILE) D0 
BEGIN 
(#* 读 入 一 个 序列 水 ) 
LIST:=NIL; (s 表 的 初始 化 炒 ) 
READ(INTFILE,X) ; 
WHILE X<>0 D0 
BEGIN 
NEU(P) 
P^.yYAL:=X;i (#+ 记 下 此 整 
P^.NEXT:=LIST; (#* 并 连 
LIST:=P; 
ee X) 


人 岂 册 区 的 陵 序 输 遇 此 序列 
WHILE P<>NIL D0 
BEGIN 
WRITE (NEVWPFILE,P^.VAL) 3 
P:=P .NEXT 《〈* 推 动 链 向 下 炒 ) 


END; 
WRITE(CNEWEILE,0O) 
ND 
END 。 
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4. 重 新 使 用 动态 分 配 的 存储 

上 面 的 程序 有 一 个 缺点 ， 它 没有 重新 使 用 不 再 需要 的 动 
态 变 量 。 其 结果 是 ,程序 需要 一 个 足够 大 的 堆 来 存放 整个 输 
入 文件 与 全 部 指针 。 一 旦 推 中 内 容 己 经 输出 ， 那 么 它 所 占 的 
空间 应 该 能 够 另 作 它 用 。 如 果 做 到 了 这 一 点 ， 堆 的 容量 只 要 
足以 存放 最 长 的 序列 就 够 了 。 

可 以 使 用 系统 提供 的 几 个 过 程 米 处 理 这 个 问题 。 

(1 ) 使 用 MARK 和 了 RELEASE 过 程 

在 PASCAL 中 没有 提供 标准 PASCAL 的 DISPOSE 
过 程 ， 但 提供 了 MARK 和 和 RELEASE 过 程 ， 用 来 归还 动 态 
分 配给 系统 的 存储 单元 。 

格式 ，MARK (HEAPPTR ) ， 

RELEASE (HEAPPTR ) ， 

这 里 HEAPPTR 具 有 类 型 AINTEGER， 在 MARK 过 
程 中 是 由 引用 来 调用 。MARK 置 HEAPPTR 为 系统 当前 的 
堆 顶 指针 值 。REILEASE 置 系统 的 堆 顶 指针 为 HEAPPTR 
的 值 。 ! 

下 面 描述 的 恢复 内 存 空间 的 过 程 大 体 和 过 程 DISPOSE 
的 功能 相似 。 因 为 还 不 能 直接 要 求 系统 释放 被 某 个 特殊 变量 
所 占用 的 空间 来 作 别 的 用 途 。 

由 标准 过 程 NE 双 所 建立 的 变量 被 存放 在 一 种 “ 堆 ” 格 
式 结构 中 。 下 面 以 一 个 程序 来 说 明 如 何 用 MARK 和 了 EL 一 
ASE 来 改变 堆 的 大 小 。 

例 11 释放 内 存 空 间 的 程序 例子 。 

PROGRAM SMALLHEAP; 
了 TYP 了 - 
PERSON=RECORD 
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NAMNE :PACKED ARRAY [0..15]j OF CHAR” 
ID:INTEGER 
END; 
IVAR PP: “PERSON; 
人 


BEG 
MARK(CHEAP)3 NEV(P); 
P ~^.NAME:= "FARKLE ,HENRY 了 。 
P .ID=999; 
RELEASE (CHEAP) 
END . 


该 程序 说 明了 一 种 特意 访问 内 存 内 容 的 轻巧 方法 ( 没有 

别 的 方法 可 访问 内 存 内 容 ) ， 它 调用 MARK 把 当前 堆 顶 的 

地 址 置 于 度量 HEAP 中 。 程 序 执行 到 这 点 时 堆 内 容 如 下 图 所 
示 : 

堆 顶 一 < 二 HEAP 


程序 启动 时 
| 推 的 内 容 


接着 程序 调用 标准 过 程 NEW， 产 生 一 个 新 变量 PA， 它 位 
于 堆 中 ， 如 下 图 所 示 ， 
堆 顶 一 
PA 人 |-~HEAP 


程序 启动 时 
堆 的 内 容 


调用 RELEASE 之 后 ， 堆 变 为 ， 
堆 项 一 


一 HEAP 
程序 启动 时 
堆 的 内 容 | 


一 旦 程序 不 再 需要 变量 PA， 希 望 释放 其 内 存 空间 以 作 
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它 用 ， 便 调用 REZL 闻 ASE， 它 重 置 堆 顶 到 变量 IEAFE 所 包 
含 的 地 址 。 

如 果 在 调用 MARK 和 RELEASE 之 间 ，NEW 被 调用 
多 次 ， 则 由 这 些 变量 所 占用 的 内 存 空间 立即 全 部 释放 。 由 于 
推 具有 栈 的 性 质 ， 要 在 堆 的 中 间 释 放 一 个 单独 项 所 占用 的 内 
丰 空间 是 不 可 能 的 。 粗 心 邮 使 用 MARK 和 和 RELEASE， 可 
能 留 下 悬空 指针 ， 它 不 再 指向 由 堆 空间 所 定义 的 内 存 区 域 。 

(2 ) MEMAVAIL 函 数 

本 函数 回 送 当前 栈 顶 和 堆 顶 之 间 的 存储 字数 ， 这 就 是 当 
前 可 利用 的 存储 量 。 

格式 ，MEMAVAIL 

利用 这 个 函数 ， 可 以 检测 栈 顶 和 推 顶 之 间 可 用 的 存储 空 
间 量 。 


习题 十 二 


1. 假 定 类 型 SEX= (FEMALE，MALE) 。 定义 一 个 类 型 
STUDENT， 它 把 MALESTUDENT 和 FEMALESTUDENT 两 
洗 结 合 起 来 。 

2 .编写 一 个 计算 几何 图 形 周 长 的 函数 ， 其 首部 FUNCTION 
PERIMETER (FIG : GEOMETRICFIGURE ) ，REAL， 

3 .建立 家 庭 成 员 情 况 表 。 它 包括 每 个 人 的 工作 证 号 、 姓 名 、 人 性别、 
年 龄 和 学 龄 等 。 最 后 计算 一 下 家 庭 成 员 的 平均 年 龄 、 平 均 学 龄 。 

4.APPLBE PASCAL 支 持 几 种 类 型 的 文件 ? 各 种 文件 变量 怎 样 
定义 ? 

5. 编 写 一 个 程序 ， 计 算 文本 文件 中 行 结束 标志 的 数目 。 

6. 计 算 文本 文件 行 长 度 的 平均 值 、 最 大 值 和 最 小 值 ， 行 结束 标 志 
不 能 看 作 字 符 。 

7. 编 写 一 个 程序 ， 把 两 个 有 序 的 INTEGER 文 件 合并 起 来 ， 产 生 
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一 个 有 序 文 件 。 

8. 分 别 叙述 人 个 、P 与 P 人 等 符号 的 含义 。 

9. 输 入 一 系列 整数 ， 当 遇 到 0 时 停止 ， 建 立 并 输出 偶数 链表 和 按 从 
小 到 大 排列 的 奇数 链表 。 

10 .键盘 输入 20 个 学 生 的 情况 。 用 指针 类 型 在 磁盘 中 建立 学 生 情 况 
表 的 文件 3S1.DATA， 包 括 学 生 姓 名 、 年 龄 、 性 别 和 成 绩 。 

11 .已 知 一 个 链表 有 10 个 结 点 Al1，A2，…，Aio 分 别 存放 Xil， 
Xs，…，X10 等 10 个 整 型 数 。 要 求 用 叉 数 Y 代替 X*，Y4 和 Ya 插入 A， 
和 As 结 点 之 间 ， 并 删除 结 点 Ay， 形 成 10 个 结 点 的 链表 。 编 一 程序 完 
减 上 述 功能 。 
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第 十 三 章 过程 和 函数 


使 用 逐步 求 精 的 程序 设计 方法 ， 一 个 大 的 PASCAL 程 
序 可 以 由 一 个 或 多 个 模块 构成 ， 每 个 模块 还 可 以 由 子 模块 构 
成 。 而 过 程 和 函数 都 可 以 用 于 构成 这 种 模块 。 过 程 和 函数 一 
且 定 义 ， 便 可 在 程序 的 语句 部 分 调用 。 

过 程 和 函数 有 预定 义 的 或 用 户 定义 的 。 预 定义 的 过 程 、 
函数 分 别称 为 标准 过 程 和 标准 函数 。 这 些 标 准 过 程 和 函数 是 
PASCALE 的 组 成 部 分 ， 无 需 说明 ， 可 直接 调用 。 


13.1 过 程 的 定义 和 调用 


1. 过 程 的 建立 方式 

过 程 是 一 个 题目 中 某 个 子 任务 的 程序 ， 它 在 过 程 说 明 部 
分 定义 。 其 格式 如 下 ， 

PROCEDURE《〈 过 程 名 》(《〈 形 参 表 ) ， 

《程序 体 》 

过 程 的 格式 和 程序 的 格式 相同 。 形 参 表 和 说 明 部 分 中 说 
明 的 所 有 标识 符 是 该 过 程 的 局 部 变量 ， 称 为 标识 符 的 作用 
域 ， 在 作用 域外 就 失去 了 其 作用 。 过 程 说 明 可 以 引用 外 部 过 
程 定义 的 任何 常数 类型、 变量 、 过 程 或 函数 。 过 程 多 许 嵌 
套 ， 即 在 过 程 体 中 使 用 了 过 程 标识 符 本 身 ， 这 种 情况 称 为 递 
归 调 用 。 过 程 一 旦 在 说 明 部 分 说 明之 后 ， 重 可 以 在 程序 的 语 
名 部 分 用 过 程 各 来 引用 ， 即 过 程 语 司 。 
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下 面 是 定义 和 调用 过 程 的 一 个 例子 。 
例 ! ”将 两 数 相 加 并 且 整 齐 地 打印 出 来 。 
PROGRAM ADDNUMBER (INPUT，OUTPUT )， 
VAR 

NUM1，NUM2，TOTAL : REAL 
PROCEDURE DRAWALINE， 

CONST LENGTH=10， 

VAR TINTEGER， 


BEGIN 
FOR TI:=1 TO LENGTH Do 
WRITE( 一 )， 
WRITELN 
END， 
BEGIN 


READ(CNUMI，NUM2 ) 
WRITELN (NUMI :10:3);，( 变 量 NUMI 占 10 位 ， 小 数 点 
后 占 3 位 。 ) 

WRITELN (NUM2 :10:3)， 

DRAWALINE， 

TOTAL : =NUMI+TNUM2， 

WRITELN (CTOTAL :10:3) 

也、D. 

2 .参数 

参数 是 过 程 内 部 使 用 的 变量 。 过 程 定 义 时 ， 过 程 的 所 有 


参数 的 类 型 都 是 在 过 程 首部 的 圆 括号 内 说 明 ， 这 种 参数 称 为 
形式 参数 ， 或 形 参 ， 过 程 调用 时 ， 对 应 每 个 形 参 都 要 给 出 实 
在 参数 值 ， 称 为 实 参 。 


FASCAL 语 言 支持 两 种 不 同 的 参数 ， 即 值 参数 (用 以 改 
变动 作 ) 和 变量 参数 (以 便 取 得 结果 )。 上 述 的 例子 中 ， 如 果 
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要 求 过 程 DRAWALINE 在 每 次 调用 时 输出 不 同 长 度 的 站 
线 ， 那 么 LENGTH 便 可 以 作为 值 参 ， 如 例 2 所 示 。 
例 2 ”具有 值 参 的 过 程 例子 。 


PROGRAH 0UTPUT) ; 
VAR X,Y， N : 1 EGER; 
NUMBER BEAL 
PROCEDURE RNYALINECLERGTI INTEGER) 5 
EGE 


WAR I:INTEG 


.BEGIKN 
FOR I:= 人 L NGTH D0 


1 
9 


READ (N) 
FOR X:=1 TO K 00 
BEGIN 
READ (NUMBER) 
Y:=ROUND(NBMBER7 
TIF Y<O TRREN DRAVALINHE(0) 
ELSE ITF Y>100 THEN DRAVALINE(100)》 
.ELSE DRAVALINE(Y) 
RND 
END 。 


动作 的 集合 构成 自 包含 的 过 程 ， 此 过 程 能 产生 后 面 程序 
中 将 要 用 到 的 结果 。 这 是 通过 使 用 “变量 ”参数 来 达到 的 。 
在 过 程 调用 时 ， 对 应 于 形式 变量 参数 的 实在 变量 参数 必须 用 
变量 的 形式 给 出 。 在 过 程 的 首部 ， 任 何 形式 变量 参数 表 都 是 
通过 在 它们 的 前 面 冠 以 保留 字 VAR 来 加 以 区 分 的 下面 的 程 
序 中 ， 过 程 SWAP 把 实在 变量 参数 X 和 Y 的 值 进行 了 互 换 。 
例 3 将 N 组 数据 对 中 的 每 一 组 进行 排序 。 
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pROGRAN 0 0UTPUT) 全 
VAR 于 人 


ipzocEiuE ， syapCvAR P,Q: REAL) 了 
. VAR TEMP :REALY 


BE 
0 


(X， 
IP X>Y 和 SVAP (X， v)， 
WRITELH 


EN 
WRITE ARE THE ORDERED PAIRS" : 


在 一 个 过 程 中 ， 对 形式 变量 参数 (例如 ，P 和 Q ) 的 任何 
操作 实际 上 是 对 相应 的 实在 参数 ( 例如 又 和 Y ) 进行 的 。 因 
而 上 例 中 ， 通 过 过 程 调 用 而 互 换 了 X 和 Y 的 值 。 相 反 ， 形 式 
值 参数 可 以 改变 其 值 而 不 影响 过 程 外 的 任何 变量 。 

下 例 表 明了 一 个 过 程 中 可 以 同时 使 用 值 参数 和 变量 参 
数 ， 

例 4 将 英 时 转换 为 英里 和 码 。 


PROGRAMH VALVARPARA(INPUT,0OUTPUY) ， 

VAR A,B,NUMBER:INTEGER; 

PROCEDURE CONVERT(VAR X,Y:INTEGER; 
人 


B 
X3:=INS DIV(1760*#36); 
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YNS=INS 0D 人 1760* 36)， 
Y3:=INS 

本 D; 

BEGIN 

READ (NUMBER) 3 
CONVERT(A,B,NUMBER) 3 
VRITELN(A:4，"MILES',B:4，"YARDS'") 

END 。 


和 


在 该 程序 的 过 程 调用 中 ， 值 参数 INS 由 READ 语 名 所 读 
的 值 给 出 。 在 过 程 内 对 两 个 形式 变量 参数 X 和 Y 的 操作 实 际 
上 是 通过 A 和 了 B 来 实现 的 ， 然 后 把 它们 打印 出 来 。 

变量 参数 和 值 参数 不 限于 四 种 标准 的 纯 量 类 型 。 然 而 ， 
构造 类 型 的 参数 通常 只 能 是 变量 参数 ( 例如 :， 集合、 数组 和 
记录 ) ， 这 是 因为 值 参数 隐 含 着 一 个 局 部 的 副本 。 此 外 ， 文 
件 参 数 必须 说 明 为 VAR， 而 紧缩 结构 的 成 份 不 能 作 实 在 变 
量 参数 。 

PASCAL 不 多 许 用 过 程 名 或 函数 各 作为 过 程 或 函数 的 
形 人 参 。 


13.2 函数 的 定义 和 调用 


过 程 可 以 用 来 标识 一 组 操作 动作 ， 而 “函数 ” 则 可 以 用 
来 得 到 一 个 值 。 函 数 一 经 定义 ， 就 可 以 作为 表达 式 的 一 个 项 
而 参与 相应 的 运算 。 正 如 任何 其 它 值 一 样 ， 由 函数 计算 出 来 
的 值 的 类 理 必 须 与 函数 所 在 表达 式 类 型 相 一 致 。 函 数 的 类 型 
(〈 不 能 为 构造 类 型 ) 在 函数 说 明 中 给 出 。 函 数 说 明 格 式 如 
下 : 

FUNCTION (函数 名 》(《〈 形 参 表 )): 《类 型 标识 符 ); 

《程序 体 》 
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在 函数 说 明 的 程序 体 中 ， 可 以 包含 任何 语句 ， 而 且 必 须 
至 少 有 一 个 用 于 对 函数 名 赋值 的 语句 被 执行 。 这 个 语句 的 作 
用 是 恋 回 函数 的 值 。 

例 5 ” 求 X、Y 两 个 实数 中 哪个 最 大 ? 


FUNCTION MAX(X,Y:REAL) : REALS 
，BEGIN 

JR X>Y THEN MAX:=X 

ELSE MAX:=Y 


D ; 


在 函数 的 程序 体 中 ， 可 以 调用 函数 自身 ， 这 称 为 道 归 函 
数 。 
例 6 求 N 的 阶乘 。 


PROGRAM FACTORIAL(INPUT,0OUTPUT) 
VAR NUMHBER:INTEGER ; 
FUNCTION FACTORIALEF3N(CVALUE:INTEGER) :REALY 
BEGIN 
IF VALUE=0O THEN FACTORIALFUN:=1  (*01=1x) 
ELSE FACTORIALRFUN :=VALUE 祥 
人 1) 5 
END; (人 (*N1=N#s(N-1) 空 ) 
BEGIN 
READLN (NUMBER) ; 
IF NUMBER<O THEN WRITELN("NOT VALID INPUT!") 
ELSE WRITELN (NUMBER， "1!1=， 
FACTORIALFUN (NUMBER) : 8:0) 
END 。 


13.3 标准 过 程 和 标准 函数 


PASCAL 提 供 了 如 下 三 类 标准 过 程 和 标准 函数 ， 
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1. 串 标准 过 程 和 函数 

包括 ，LENGTH 函 数 ，POS 函 数 ，CONCAT 函 数 ， 
COPY 函 数 ，DELETE 过 程 ，INSERT 过 程 和 STR 过 程 ， 
共 7 个 。 

2. 文 件 处 理 标准 过 程 和 函数 

它们 是 ，REWRITE 过 程 ，RESET 过 程 ，CLOSE 过 
程 ， 忆 OF 函 数 ，EOLN 函 数 ，GET 过 程 ，PUT 过 程 , IOR- 
ESULT 函 数 ，READ 过 程 ， READLN 过 程 ，WRITE 过 
程 ，WRITELN 过 程 ，PAKE 过 程 ，SEEK 过 程 ，BLOC- 
KREAD 函 数 和 BLOCK WRITE 函数 ， 共 16 个 。 

3. 指 针 处 理 标准 过 程 和 函数 

它们 是 ， MARK 过 程 ，RELEASE 过 程 和 MEMATV- 
AIL 函 数 ， 共 3 个 。 

上 述 三 类 过 程 和 函数 ， 前 面 已 经 介绍 了 。 除 此 之 外 ， 还 
有 如 下 一 些 标准 过 程 和 函数 。 


15.5.1 处 理 字 节 的 过 程 和 函数 

面向 字 节 的 标准 过 程 和 标准 函数 不 对 参数 进行 任何 范围 
检查 ， 也 不 对 参数 SOURCE 和 DESTINATION 进 行 类 型 
检查 ， 所 以 系统 并 不 保护 自己 免 受 它们 的 破坏 。 使 用 这 些 过 
程 和 函数 前 要 特别 注意 。 

1.SIZEOF 函数 

格式 ，SIZEOF (IDENTIFIER ) 

IDENTIFIER 为 变量 标识 符 或 类 型 标识 符 。 

该 函数 回 送 一 个 整数 值 ， 这 个 值 为 变量 IDENTIFIER 
或 类 型 为 IDENTIFIER 的 任何 变量 所 占用 的 字 节 数 。 

SIZEOF 对 过 程 FILLCHAR，MOVELEFT 和 MOV- 
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ERIGHT 特 别 有 用 ( 见 下 面 )。 

2.SCAN 郴 数 

格式 ，SCAN (LIMIT，PEXPR，SOURCE ) 

该 函数 扫描 一 个 内 存 字 节 区 ， 寻 找 一 个 指定 的 目标 字符 
( 紧缩 情形 ， 一 个 字符 占用 一 个 字 节 ， 等 价 于 寻找 一 个 指定 
的 字 节 ) 或 与 一 个 指定 字符 不 相等 的 字符 。 执 行 该 函数 后 回 
送 一 个 整数 值 ， 它 表示 被 扫描 的 字 节 个 数 。 其 中 ， 

LIMIT--- 整 型 值 ， 它 给 出 由 指定 的 起 点 位 置 开 始 扫描 
的 最 大 字 节 数 。 若 LIMIT 为 负 ， 则 从 起 点 向 后 回 扫 。 若 没有 
找到 目标 ， 则 回 送 LIMIT 值 。 

PEXPR 一 一 -指明 要 扫描 的 那个 目标 ， 取 下 列 形式 之 


=CH 目标 是 与 CH 相等 的 字符 。 

< >CH 目标 是 与 CH 不 相等 的 字符 。 

CH 可 以 是 产生 字符 类 型 结果 的 任何 表达 式 。 

SOURCE 一 一 除 文件 类 型 外 的 任何 类 型 变量 ， 它 的 首 
字 节 是 扫描 的 起 点 位 置 。 

每 当 找到 目标 或 已 经 扫描 了 LIMIT 个 字 节 时 ，SCAN 
终止 执行 并 回 送 所 扫描 的 字 节 个 数 。 如 果 目 标 就 在 起 始点 则 
回 送 值 0， 如 果 LIMIT 是 负 值 ， 则 向 后 回 扫 ， 回 送 的 值 也 将 
是 负 的 。 

假设 DEM 说 明 为 ， 

VAR  DEM :PACKRD ARRAY [0..100] OF 
CHAR， 

又 设 DEM 的 前 面 53 个 元 未 装 有 字符 ， 

os THE PTERO 1IS9 A MEMBER OF THE 
PTERODACTYL FAMILY 
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SCAN (-26，=' :/，DEM [30] ) ， 则 回 送 -26。 
SCAN (100，< >' .:'，DEM ) ， 则 回 送 5。 
SCAN (15，='′ '，DEM [5] ) ， 则 回 送 3。 
3.MOVELEFT 和 MOVERIGHT 过 程 

格式 ， MOVELEFT (SOURCE,DESTINATION 
COUNT ) 。 

MOVERIGHT(SOURCE,DESTINATION 
COUNT ) ， 

SOURCE 和 DESTINATION 是 除 文件 类 型 外 的 任何 
类 型 变量 。SOURCE 的 首 字 节 是 要 传递 的 字 节 区 域 的 起 始 
位 置 ，DESTINATION 的 首 字 节 是 要 复制 进入 的 字 节 区 域 
的 起 始 位 置 。COUNT 为 整 型 值 ， 指 明 要 传送 的 字 节 个 
数 。 

过 程 MOVELEFT 将 SOURCE 字 节 区 域 左 端 开始 的 
COUNT 个 字 节 ， 从 左 向 右 依 次 传送 到 DESTINATION 字 
节 区 域 左 端 开 始 的 COUNT 个 字 节 位 置 。 

过 程 MOVERIGHT 将 SOURCE 字 节 区 域 右 端 开始 的 
COUNT 个 字 节 ， 从 右 向 左 依次 传送 到 DESTINATION 字 
节 区 域 右 端 开始 的 COUNT 个 字 节 位 置 。 

提供 这 两 种 传送 方式 是 考虑 到 SOURCE 和 DESTINA- 
TION 的 字 节 区 域 可 能 重 舌 。 如 果 重 亚 ， 字 节 传 送 的 方向 是 
关键 的 ， 每 个 字 节 必 须 在 它 被 另外 的 字 节 覆盖 以 前 移 走 。 

当 SOURCE 和 DESTINATION 均 为 同一 个 PACKED 
ARRAY OF CHAR 的 子 数 组 时 ， 若 DESTINATION 具 
有 高 于 SOURCE 的 下 标 ， 则 须 使 用 MOVERIGHT， 反 之 
使 用 MOVELEFT。 

例如 ， 设 变量 A 说 明 为 ， 
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VAR A:， PACKED ARRAY [1..30] OF CHAR， 

又 设 数组 A 中 装 有 字符 ， 

THIS IS THE TEXT IN THIS ARRAY 

调用 MOVERIGHT (Ar[10] ，A[1] ，10 ) 后 A 中 内 
容 变 为 ， 

NE TEXT IN _ THIS ARRAY 

再 调用 MOVELEEFT (Ar[1] ，A[3] ，10 ) 后 ， 

NENENENENENETEXT IN _ THIS ARRAY 

4.FILLCHAR 过 程 

格式 ，FILLCHAR (DESTINATION，COUNT， 
CHARACTER ) ， 

DESTINATION 是 除 文件 类 型 之 外 的 任何 类 型 变 量 ， 
COUNT 为 整 型 值 ， CHARACTER 为 字符 值 。 

该 过 程 将 字符 值 CHARACTER 填 入 到 DESTINAT- 
ION 的 首 字 节 开始 的 COUNT 个 字 节 区 中 。 


15.35.2 与 设备 有 关 的 过 程 和 函数 


下 面 的 标准 过 程 和 标准 函数 是 面向 设备 的 低级 I/O 过 程 
和 函数 ， 使 用 时 要 特别 小 心 。 
1.UNITREAD 和 UNITWRITE 过 程 
格式 ，UNITREAD (UNITNUMBER，ARRAY， 
LENGTH 〔【，[BLOCKNUMBER] [ ,MODE] ] )， 
UNITWRITE (UNITNUMBER，ARRAY， 
LENGTH (，[BLOCKNUMBER] [,MODE)] ] ) ， 
其 中 UNITNUMBER 为 IO 设备 的 卷 号 ， 整 型 数 .AR- 
RAY 为 紧缩 数组 名 ， 可 置 上 下 标 以 指明 开始 位 置 , 用 作 传 送 
的 起 始 地 址 ， 亦 可 用 串 来 表示 ， 但 其 下 标 应 大 于 0， 因 串 的 0 
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号 元 素 包含 通常 不 传送 的 数据 。LENGTH 取 整 型 信 ， 用 交 
指出 传送 的 字 节 数 。BLOCKNUMBER 取 整数 , 仅 当 使 用 磁 
盘 驱 动 器 时 才 有 意义 ， 它 是 传送 开始 处 的 绝对 块 号 ， 如 果 缺 
省 它 ， 默 认为 0(。MODE 取 0..15 中 的 整数 ， 默 认为 0， 它 壹 
制 两 种 UNITWRITE 选 择 。MODE 对 UNITREAD 没 有 作 
用 。 

由 参数 MODE 控 制 的 UNITWRITE 选 择 仅 用 于 象 控 制 
台 或 打印 机 这 样 的 面向 文本 的 IMO 设 备 , 不 能 用 于 磁盘 。 若 参 
数 MODE 负 省 ， 对 下 面 两 种 选择 均 有 效 。 

一 种 选择 是 DLE 码 的 转换 。 在 PASCAL 磁盘 文 件 中 ， 
行 开始 处 的 前 导 空 格 表示 为 DLE 字 符 (ASCII16 ) 后 跟 一 
数码 ， 这 个 数码 为 32 加 上 空格 数 。 在 对 一 个 非 块 结构 的 设 
备 ， 如 打印 机 输出 时 ，DELE 转 换 选 择 查 明 DLE 码 并 把 它 转 
换 成 一 串 空 格 符 。 若 MODE 值 的 第 三 位 为 二 进 制 1， 则 不 进 
行 D 工 已 转换 。 

另 一 种 选择 是 自动 换行 。 在 PASCAL 磁盘 文件 中 ， 每 
行 来 尾 都 标 有 行 结束 符 。/ (ASCII 13 ) ， 而 不 需 别 的 换行 字 
符 。 对 一 个 非 块 结构 的 设备 如 打印 机 ， 自 动 在 每 个 。/ 字 符 后 
面 插入 一 个 LF 字 符 ( ASCII 10 ) 。 若 MODE 的 值 第 二 位 为 
二 进 制 1， 则 不 进行 自动 换行 。 

MODE 值 仅 第 二 和 第 三 位 有 意义 ,第 二 位 本 身 对 应 值 4， 
第 三 位 对 应 值 8。 下 面 列 出 用 来 控制 选择 的 MODE 值 。 

MODE=0 默认 值 ， 使 两 种 选择 均 有 效 。 

MODE=4 自动 换行 无 效 ，DLE 转 换 有 效 。 

MODE=8 DLE 转 换 和 无 效 ， 自 动 换行 有 效 。 

MODE=12 两 种 选择 均 无 效 。 

2.UNITBUSY 函 数 
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回 送 一 个 布尔 值 ， 表 明 一 个 指定 的 设备 是 否 忙 闲 。 如 果 
值 为 真 ， 表 示 该 指定 的 设备 正 等 待 完成 一 个 IO 传 送 。UN- 
ITNUMBER 为 指定 的 设备 导 。 

由 于 中 华 学 习 机 的 I/O 了 驱动 器 不 能 中 断 驱动 ， 故 UNIT- 
BUSY 总 是 假 值 。 

3.UNITWAIT 过 程 

等 待 指定 的 设备 完成 正在 进行 的 I/O。 因 中 华 学 习 机 驱 
动 器 I/O 不 能 被 中 断 驱动 ，UNITWAIT 什 么 也 不 做 。 

4.UNITCLEAR 过 程 

对 指定 的 设备 撤消 所 有 I/VO 操 作 ， 并 重 置 加 电 状态 。 

格式 ，UNITCLEAR ( UNITNUMBER ) ， 

UNITNUMBER 为 指定 的 设备 号 。 如 果 该 指定 的 设备 
不 存在 ，IORESULT 被 置 为 非 0 值 ， 因 此 可 利用 它 来 检测 
所 给 的 设备 是 否 在 系统 中 。 


15.5.5 超越 函数 


在 PASCAL 中 ， 超 越 函数 是 作为 程序 包 由 系统 库 
来 提供 的 ， 要 想 使 用 这 组 函数 ， 应 在 程序 首部 之 后 放 上 说 
明 ， 

USES TRANSCENT， 


这 些 函 数 有 ， 

SIN(ANGLE ) 正 弱 
COS (ANGLE ) 余 苞 
EXP(CNUMBER ) 指数 函数 
ATAN (NUMBER ) 反正 切 
LNCNUMBER ) 自然 对 数 


LOG (NUMBER ) 10 为 底 的 对 数 
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SQRT (NUMBER ) 平方 根 

其 中 ANGLE 和 NUMBER 均 是 实数 ， 且 变 元 ANGLE 
是 以 弧度 表示 的 。 除 函数 ATAN 回 送 的 是 弧度 值 外 ， 其 余 6 
个 函数 均 回 送 实数 值 。 

例 7 ”计算 函数 


ex X<0 
-FECx)= | AAAX 


>0 
1 十 cosx 


PROGRAM TRANSCENDEMO (INPUT，OUTPUT ) ， 
USES TRANSCEND， 
VAR X,，F:， REAL 
BEGIN 
READ (X) ， 
IF X<o THEN F :=EXP(X) 
ELSE F，, =SQRT(X)/(I+COS(X) )，， 
WRITE (/X=/， X，/F=  F) 
END: 


15.5.4 其 它 过 程 和 函数 


1.TRUNC 函 数 

格式 ，TRUNC (NUMBER ) 

其 中 NUMBER 为 实数 或 长 整数 。 如 果 NUMBER 的 绝 
对 值 超过 MAXINT 将 发 生 溢 出 。 如 果 NUMBER 为 实数 ， 
TRUNC 回 送 NUMBER 的 整数 部 分 ， 如果 NUMBFR 为 长 
整数 ，TRUNC 回 送 一 个 与 NUMBER 数 值 相等 的 整数 利 。 

2.PWROFTEN 函 数 

格式 ，PWROFTEN (EXPONENT ) 
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这 里 忆 XPONENT 是 0..37 中 的 任何 整数 值 。 函 数 回 送 
10 的 EXPONENT 次 寡 的 值 。 

3.HALT 过 程 

格式 ，HALT， 

该 过 程 生成 一 个 HALT 操 作 码 ， 执 行 时 引起 一 个 非 致命 
性 的 运行 错 。 

4.EXIT 过 程 

格式 ，EXIT ( PROCEDURENAME ) ， 

EXIT (PROGRAM ) ， 
EXIT (PROGRAMNAME ) ， 

该 过 程 终止 程序 、 函 数 或 过 程 的 执行 ， 按 顺序 退出 函 
数 、 过 程 或 程序 本 身 。 

PROCEDURENAME 是 要 退出 的 过 程 名 和 函数 名 。 该 
过 程 或 函数 不 一 定 要 是 下 XIT 语 句 所 在 的 过 程 和 函数 。EXIT 
跟踪 过 程 或 函数 调用 ， 退 回 到 所 指定 的 过 程 或 函数 。 跟 踪 回 
湖 过 程 中 的 每 一 个 过 程 或 函数 都 被 退出 。 若 指定 的 过 程 是 递 
归 的 ， 则 最 近 的 一 次 过 程 调用 被 退出 。 当 一 个 过 程 或 函数 经 
卫 XIT 退 出 时 ， 任 何 用 于 该 过 程 或 函数 中 的 文件 均 自 动 关 
闭 。 

用 下 XIT 退 出 一 个 函数 时 ， 若 在 已 XIT 执 行 前 函数 标识 
符 未 被 赋值 ， 则 函数 回 送 一 个 不 代 定 的 值 。 

当 用 程序 名 或 PROGRAM 作 下 XIT 的 参数 时 ， 就 按 指定 
的 程序 来 终止 。 

5.GOTOXY 过 程 

格式 ，GOTOXY ( XCOORD，YCOORD ) ， 

该 过 程 置 光 标 到 屏幕 的 指定 位 置 。 其 中 XCOORD 和 
YCOORD 取 整数 值 ， 表 示 X( 水 平 ) 和 Y ( 竖 直 ) 坐标。 
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XCOORD 必 须 了 到 0. .79 的 数 ， 而 YCOORD 为 0..23。 屏 划 
左上 和 角 的 坐标 为 ( 0，0 ) 。 过 程 调 用 后 光标 处 于 坐标 ( XC- 
OORD，YCOORD ) 处 。 

6.TREESEARCH 函 数 

格式 ， TREESEARCH (ROOTPTR，NODEPTR， 
NAME ) 

ROOTPTR 是 指向 被 搜索 的 树 根 结 点 的 指针 。 
NODEPTR 是 被 该 函数 修改 的 指针 变量 。NAME 是 一 个 紧 
缩 字 符 数 组 (PACKED ARRAY [1..8] OF CHAR ) 
标识 符 ， 它 表 示 树 中 被 搜索 的 由 8 个 字符 组 成 的 名 字 。 

二 元 树 的 结 点 设 为 ， 

NODE= 了 RECORD 

NAME :PACKED ARRAY [1..8] OF CHAR， 
LEFTLINE，RIGHTLINE : 人 NODE， 
# (其 它 的 任何 域 ) 
ND， 
的 链 记录 。 

类 型 名 和 域名 并 不 重要 ， 仅 假定 记录 的 头 8 个 字 节 包含 
一 个 8 字符 名 字 ， 眼 在 后 面 的 两 个 指针 指向 其 它 的 节点 。 

假定 树 中 没有 重 名 并 按 字母 顺序 规则 赋 给 结 点 ， 对 一 给 
定 的 结 点 ， 其 左 子 结 点 的 名 字 按 字母 顺序 小 于 结 点 名 字 ， 而 
右 子 结 点 名 字 大 于 结 点 名 字 。 最 后 ， 不 指向 任何 其 它 结 点 的 
链 是 NIL。 

TREESEARCH 回 送 下 面 三 个 值 之 一 ， 

0 送 给 该 函数 的 名 字 已 在 树 中 找到 ，NODEPTR 正 指 
向 它 。 

1 _ NAME 不 在 树 中 。 如 果 把 它 加 到 树 中 ， 应 该 是 NO- 
DEPTR 所 指向 的 结 点 的 右 子 结 点 。 
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-1 NAME 不 在 树 中 。 如 果 把 它 加 到 树 中 ， 应 该 是 
NODEPTR 所 指向 的 左 子 结 点 。 
该 函数 对 参数 不 做 任何 类 型 检查 。 


习 题 十 三 


1. 编 写 一 个 函数 MIN， 它 给 出 两 个 数 的 最 小 值 。 在 一 个 程序 中 利 
用 函数 MIN ， 使 该 程序 打印 出 一 组 读 入 数 的 最 小 值 和 平均 值 。 

2 .编写 一 个 完成 “时 间 ” 加 法 的 程序 ， 时 间 以 年 数 、 周 数 和 小 时 
数 给 出 。 解 法 应 包含 过 程 和 函数 ， 可 设 一 年 正好 365 天 。 

3. 给 出 下 述 程序 运行 后 的 结果 。 


PROGRAM NONSENSE (0UTPUT) 
VAR THING :INTEGER ; 
?PROCEDURE CHEATCVAR HEE,HAVW:INTEGER)% 


BEGIN 
HEE:=-1; 
了 A 几 :=- 了 BEE 
END 
BEGIN 
THING:=1; 
CHEAT(THING ,THING) 
WRITELN 人 《THING) 
END.。 


PROGRAM RUBBITSH(OUTPUT) 
VAR THING:INTEGERY 
PROCEDURE LIAR(CVAR HE5B2INTEGERSHAV:INTEGER) 


BEGIN 一 
站 =10 交 有 AT 
了 


BEGIN 
THING:=10; 
LIARKCTRING,THING) 
“WRITELR(CTHING) 
END , 
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4. 写 一 个 函数 DIGIT (N， 开 ) ， 它 回 送 数 N 的 从 右边 开始 的 第 
开 个 数字 的 值 。 例 如 ， 

DIGIT (254693，2 ) =9 

DIG1T (7622，6 ) 一 0 

5. 写 一 个 函数 ， 求 两 个 数 的 最 大 公 因 数 。 


附录 一 FORTRAN 语 言 一 览 表 
1.1 FORTRAN 语句 一 览 表 


语句 名 称 格 式 功 能 


标号 赋值 语句 ASSIGN (标号 TO 〈 变 | 将 (标号 》 由 给 (变量 
量 》 
回 退 语句 BACKSPACE (部件 号 》 | 将 文件 指针 退回 一 个 记录 
并 ， 指 向 记录 的 始点 。 
或 BACKSPACE ((〈 变 


量 》) 
室 符 赋值 语句 CHR= 一 《表达 式 》 将 字符 表达 式 的 值 赋 给 字符 
变量 。 
继续 语句 CONTINUE 作 循环 的 终端 语句 或 其 它 
用 。 
调用 语句 CALL ( 子 例 程 名 》(《〈 实 | 调用 子 例 程 子 程序 。 
参 表 》) 
关闭 语句 CLOSE(( 文件 信息 未 》) | 关闭 已 打开 的 文件 。 


字符 型 说 明 语 句 CHARACTER 变 昌 表 〉 | 说 明 字 符 变 量 。 
或 CHARACTERa#n'( 变 
量 表 》 


weerrereeeeeeerrereereregrrerrerrregeretgrrrerrreerrrrrerrerrrrerrrrPPPPPGPPPPPPPPPPPUPIIUPPUPPPPIPPPPPP 
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语句 名 称 格 式 功 能 
公用 语句 | coMMON ( 变 重 表 ) 或 | 说 明 有 名 或 无 名 公用 块 变 
COMMONV/( 块 名 ?/《〈 变 量 。 
量 表 》 
循环 语句 DO (标号 ) I=〈 循 参 表 》 | 指明 一 个 循环 。 
维 说 明 语句 DIMENSION (数组 说 符 | 说 明 数 组 的 维 数 、 维 界 等 。 
表 》 
数据 语句 DATA:( 变 量 表 》/《〈 数 据 | 对 变量 赋 初 值 。 
。 霄 》 / eee 
ELSEIF 语 名 ELSEIFR (表达 式 》) | 多 路 判定 结构 中 使 用 。 
THEN 
FEI.S 世 语句 ELSE 判定 结构 中 使 用 。 
ENDIF 语 句 ENDIF 判定 结构 结束 用 。 
文件 结束 语句 ENDFILE( (整数 》) 或 | 写 文件 结束 记录 。 
ENDFILE(( 变 量 》) 
程序 单位 结束 语句 | END 结束 一 个 程序 单位 。 
等 价 语句 EQUIVALENCE( 等 价 | 建立 等 价 关 系 。 
域 表 》 
外 部 语句 忆 XTERNAL 〈 外 部 程序 | 说 明 外 部 程序 单位 。 
名 表 
函数 子 程序 语句 FUNCTION 《程序 名 》 | 定义 函数 子 程序 、 形 参 等 。 
(《〈 形 参 表 》〉 ) 
或 TYPE] FUNCTION 
《程序 名 》(〔[( 形 参 
表 ] ) 
格式 语句 FORMAT( (格式 编辑 符 | 为 输入 输出 语句 提供 用 户 格 
串 》) 式 。 
语句 函数 语句 F(《( 形 参 表 》)= (表达 | 定义 程序 单位 内 的 函数 关 
4 式 》 系 。 
无 条 件 转 移 语句 GOTO (标号 》 控制 转移 到 指定 的 语句 去 执 


行 。 
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语句 名 称 格 式 功 能 
计算 转移 语句 GOTO(《〈 标号 表 》)(〈 表 | 根据 表达 式 的 值 转 指定 的 语 
达 式 》 名 去 执行 。 霄 达 式 值 指定 
标号 在 标号 表 中 的 位 置 。 
赋值 转移 语句 GOTO ( 表达 式 》( 〈《 标号 | 控制 续 移 。 表 达 式 由 ASSI- 
表 》) GN 了 赋值。 
算术 条 件 语句 IF( 《算术 表达 式 》) 〈 标 | 根据 算术 表达 式 的 值 控制 转 
号 表 》 移 。 
逻辑 条 件 语句 IF(《〈 逻辑 表达 式 》) ( 语 | 根据 逻辑 表达 式 的 值 执行 其 
句 》 后 的 《语句 》。 
块 IF 语句 IF( 表达 式 )THEN 判定 结构 的 开始 语句。 
整形 变量 说 明 语句 | INTEGER 变量 表 》 定义 整形 变量 。 
隐 含 类 型 语句 IMPLICIT (类 型 )(《〈 字 | 定义 隐 仿 规则。 
符 表 》) 
内 部 语句 INTRINSIC (内 部 程序 名 | 指明 内 部 函数 。 
表 》 
逻辑 赋值 语句 LOG= (表达 式 》 将 表达 式 的 逻辑 值 赋 给 逻辑 
变量 。 
怕 辑 量 说 明 语 名 “| LOGICAL (变量 表 》 定义 逻辑 变量 。 
打开 语句 OPEN( (文件 说 明 信 息 | 打开 一 个 用 户 文件 。 
表 》) 
主 程序 语句 PROGRAM ( 主 程序 名 》 | 定义 主 程序 名 。 
暂停 语句 PAUSEn 或 PAUSE 暂停 程序 的 执行 。 
输入 语句 READ (文件 说 明 信 息 | 输入 数据 。 
表 》〉》) 《对象 表 》 
或 READ( (部 件 》,，( 格 
式 》) (对 象 表 》 
返 绕 语 名 REWIND (整数 ) 或 将 文件 指针 返 到 文 件 的 开 
REWIND(《〈 变 量 》) 始 。 
实 型 量 说 明 语 名 “| REAL 变量 表 》 定义 实 型 变量 。 
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语句 名 称 格式 | 功 能， 


返回 语句 ， RETURN 使 程序 的 执行 返回 到 引用 程 
序 单位 。 

保留 定义 语 SAVE ( 块 名 表 》 保留 公用 块 定义 。 

停 语 名 STOP n 或 STOP 停止 整个 程序 的 执行 。 

子 例 程 语句 SUBROUTINE 〈 程序 | 子 例 程 单位 的 开始 语句 ， 定 
名 》(《〈 形 参 表 》) 义 子 例 程 名 及 其 形 参 。 

或 SUBROUTINE 《〈 程序 

名 》 

算术 赋值 语句 〈《 变 旦 ) 一 《算术 表达 式 〉 | 将 算术 表达 式 值 赋 给 变量 。 

输出 语句 WRITE( (部 件 》，《(〈 格 | 输出 数据 。 


式 〉》)〈 对 象 表 》 或 
WRITE( :文件 说 明 信 息 


表 》) (对 象 表 》 
1.2 内 部 函数 表 
AINT(CX ) 取 自 变量 的 整数 部 分 。 实 | 实 
ANINT(X ) 取 自 变量 含 入 后 的 实 整数 部 分 。 实 | 实 
AMOBR(CX1， 7 ) | 取 XIX2 的 余数 。 实 | 实 
和 式 MAX0 (二 )| 取 最 大 值 。 整 实 
AMAXI1( X，Y，… )| 取 最 大 值 。 实 | 实 
AMIN1 ( X，Y，… )| 取 最 小 值 。 实 | 实 
AMIII0( IT， J，，…) | 取 最 小 值 。 整 | 束 
AFOoG(X ) 自然 对 数 。 实 | 实 
ALOGIO(CX ) 常用 对 数 。 实 居 | “ 实 
ASINCX ) 反正 纺 。 实 | 实 
ACOS(X ) 反 余 骇 。 实 | 实 
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| 


函数 名 功 能 人 
ATAN(CX ) 反正 切 。 实 | 实 
ATAN2(X, YY) 反正 切 。 实 实 
CHAR(I) 将 整 型 值 转换 为 字符 值 。 整 | 字符 
COS(X) 余弦 。 实 | 实 
COSH(CX ) 双 曲 余弦 。 实 | 实 
DIMCX, Y) 正 差 。 实 | 实 
EXP(X) 求 eX 值 。 实 | 实 
EOF(I) 文件 结束 。 整 | 逻辑 
FLOAT(I) 将 自 变 量 I 的 值 转 换 为 实 型 值 。 整 | 实 
INTCX) 取 X 的 整数 部 分 值 。 实 | 整 
IFIXCX) 取 X 的 整数 部 分 值 。 实 | 整 
ICHAR(C ) 将 字符 表达 式 C 的 值 转换 为 整 型 什 。 | 字符 | 整 
IABSCX) 取 自 变星 X 的 绝对 假 。 实 | 实 
IABS(CI ) 取 自 变量 I 的 绝对 值 。 整 | 整 
ISIGN(I4 T。 ) 符号 传送 。 整 | 整 
IDIM(L, J) 求 正 差 。 整 | 整 
LGE(Ci， Cs ) 该 字母 浙 序 比较 Ci>C。( 大 于 等 | 字符 | 逻辑 

于 )。 
LGT(Ci， Cs ) 按 字母 顺序 比较 Ct>Cs ( 大 于 )。 | 字符 | 逻辑 
LLE(CCi， Cs ) 按 字母 顺序 比较 Cy<Cs( 小 于 等 | 字符 | 逻 每 

于 )。 
LLT(C4t，C，) 按 字母 顺序 比较 Cit<Cs (小 于 )。 | 字符 | 远 辑 
MOD(II， 1l，) 取 I1/I> 的 余数 。 整 .| 整 
MAX0(I，J…) 取 最 大 值 。 整 | 整 
MAXI (X,，Y，… )| 取 最 大 假 。 实 | 整 
MINo ( 1，J，.… ) | 取 最 小 假 。 整 | 整 
MINI(X，Y，…) 取 最 小 值 。 实 实 
NINT(X) 取 自 变量 含 入 后 的 整数 部 分 。 实 | 整 
REAL(CI) 将 自 变量 [的 值 转 换 为 实 型 值 。 整 | 实 
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函数 名 功 能 2 
SIGNCX,Y) 符号 传送 实 | 详 
SQRT(X ) 求 自 变量 X 的 平方 根 。 实 | 实 
SINCX ) 求 自 变量 X 的 正弦 什 ， 实 | 实 
5JNH(X ) 求 自 变 最 X 的 双 曲 正 张 值 。 实 实 
TAN(CX ) 求 自 变量 X 的 正切 假 。 实 | 实 
TANHCX ) 求 自 变 量 X 的 双 曲 正切 假 。 实 | 实 


1.5 FORTRAN 出 错 信 息 


1. 编 译 出 错 信 息 
1. 读 源 程 序 块 的 致命 错误 。 
2 .标号 域 中 出 现 非 数值 字符 。 
3 .后续 行 太 多 。 
<4. 遇 到 文件 的 异常 结束 。 
5. 后 续 行 出 现 标号 。 
6. 在 $ 编 译 程序 控制 命令 中 遗失 了 字段 。 
7. 无 法 打开 由 $ 命 令 所 指明 的 列表 文件 。 
8 .无 法 识别 的 $ 命 令 。 
9. 输 入 的 源 文 件 不 符合 文本 文件 格式 。 
10 .所 含 文件 的 最 大 肉 套 层 数 超过 了 规定 值 。 
11. 整 型 常数 溢出 。 
12 . 实 型 常数 溢出 。 
13 .常量 中 的 数字 太 多 。 
14 .标识 符 太 长 。 
15 .字符 常量 扩展 列 行 末端 。 
16 .字符 常量 的 长 度 为 零 。 
17, 输 入 中 出 现 非法 字符 。 
18 . 缺 整 型 常量 。 
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19. 缺 标号 。 

20 .标号 错误 。 

21. 负 类 型 名 (INTEGER，LOGICAL， 或 CHARACTER 
[sna] ) 。 

22 . 仙 整 型 常量 。 

23 .语句 结束 处 有 多 余 字 符 。 

24. 侧 “<(”( 即 缺 左 括号 ) 。 

25 .字母 被 IMPLICIT 语 句 多 次 说 明 。 

26. 缺 “)”《〈 即 缺 右 括号 ) 。 

27 . 缺 字母 。 

28 . 缺 标 识 符 。 

29.DIMENSION 语 句 中 缺少 维 数 。 

30. 多 次 指定 数组 维 数 。 

31 .数组 维 数 超过 三 维 。 

32.EQUIVALENCE 语 句 中 出 现 不 相 容 的 自 变量 。 

33 .在 一 个 类 型 说 明 语句 中 同一 变量 出 现 多 次 。 

34 .该 标识 符 已 被 说 明 过 。 

35. 该 内 部 函数 不 能 作为 自 变 量 传递 。 

36 .标识 符 必 须 是 变量 。 

37 ,标识 符 必 须 是 变量 或 是 当前 的 FUNCTION 名 。 

38. 侧 “/”( 即 缺 斜 杠 ) 。 

39 .被 取 名 的 公 甲 区 已 保存 起 来 。 

40 .变量 已 出 现在 公用 区 中 。 

41. 在 两 个 不 同 的 公用 区 中 的 变量 不 可 等 价 。 

42.EQUIVALENCE 语 句 中 的 下 标 数 与 该 变量 的 说 明 不 符 。 

43.EQUIVALENCE 语 句 中 下 标 超 界 。 

44 .两 个 不 同 单元 等 价 -- 个 公用 区 中 的 同一 存储 单元 。 

45.EQUIVALENCE 语 句 向 负 方向 扩展 公用 区 。 

46.EQUIVALENCE 语 名 使 一 变量 成 为 两 个 不 同 的 存储 单元 (不 在 
公用 区 中 的 ) 。 
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47 , 缺 语 句 标号 。 

48 .在 同一 公用 区 中 ， 不 允许 字符 和 数字 的 混合 项 。 

49. 字 符 项 不 能 与 非 字符 项 等 价 。 

50 ,在 表达 式 中 有 非法 字符 。 

51 .在 表达 式 中 不 能 使 用 子 例 程 子 程序 名 。 

52. 自 变量 类 型 必须 是 整 型 或 实 型 。 

53 . 自 变 量 类 型 必须 是 整 型 或 实 型 或 字符 型 。 

54. 比 较 的 类 型 必须 相 容 。 

55 .表达 式 的 类 型 必须 是 逻辑 型 的 。 

56 .下 标 太 多 。 

57. 下 标 太 少 。 

58 . 缺 变量 。 

59. 缺 “一 ”号 。 

60 .等 价 字 符 的 长 度 必 须 相等 。 

61 .非法 赋值 一 一 类 型 不 匹配 。 

62. 只 能 调用 子 例 程 子 程序 。 

63 .在 公用 区 中 不 能 出 现形 参 自 变量 。 

64 .在 等 价 语句 中 不 能 出 现形 参 自 变 量 。 

65 .假定 大 小 数组 说 明 仅 能 用 于 形 参 自 变量 。 

66 .可 调 数组 说 明 只 能 用 于 形 人 参数 组。 

67 ,假定 大 小 数组 的 维 说 明 符 “* ”必须 是 最 后 一 维 的 上 界 。 

68 .可 调 维 界 必须 是 形 参 自 变量 或 在 预先 出 现 的 公用 区 内 。 

69. 可 调 维 界 必须 是 只 包含 常数 、 公 用 区 变量 或 常数 名 的 整 型 表达 式 。 

70., 主 程序 不 能 多 于 一 个 。 

71. 有 名 公用 区 的 大 小 在 所 有 的 过 程 中 必须 一 致 。 

72. 形 参 自 变 量 不 能 出 现在 DATA 语 句 中 。 

?73 .在 DATA 语 句 中 不 得 出 现 无 名 公用 区 的 变量 。 

74. 在 DATA 语 句 中 不 得 出 现 子 例 程 子 程序 名 、 函 数 子 程序 名 、 内 部 
函数 名 等 。 

75.DATA 语 句 中 的 下 标 越 界 。 
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76 .循环 次 数 必 须 是 大 于 0 的 整数 

77 . 缺 常数 。 

78.DATA 语 句 中 的 类 型 混乱 。 

79 ,变量 的 个 数 与 DATA 语 句 表 中 的 值 的 个 数 不 一 致 。 

80 .语句 不 能 有 标号 。 

81 .无 此 内 部 函数 。 

82. 内 部 函数 的 类 型 说 明 与 内 部 函数 的 实际 类 型 不 匹配 。 

83 . 缺 字 母 。 

84.FUNCTION 的 类 型 与 先前 使 用 的 不 符 。 

85 .该 子 例 程 子 程序 已 在 本 次 编译 中 出 现 过 。 

86 .在 其 它 程 序 单位 中 已 存在 的 这 个 过 程 ， 已 由 $US 命 令 定义 。 

87 .内 部 函数 的 自 变 量 类 型 出 错 。 

88.SUBROUTINE/VFUNCTION 先 前 已 作为 SUBROUTINEV 
FUNCTION 使 用 过 。 

89. 不 可 识别 的 语句 。 

90 .函数 不 可 是 字符 型 。 

. 缺 ND 话 句 。 

92 .一 个 程序 单位 不 能 出 现在 $SEPATE 编 译 中 。 

93 .在 FUNCTION 或 SUBROUTINE 调 用 中 ， 实 参 个 数 少 于 形 参 
个 数 。 

94. 在 FUNCTION 或 SUBROUTINE 调 用 中 , 实 参 个 数 多 于 夫 参 个 
数 。 

95 . 实 参与 形 参 类 型 不 匹配 。 

96 .调用 未 定义 的 过 程 。 

97 .该 过 程 已 由 $ 已 XT 命 令 所 定义 。 

98 .字符 型 量 的 长 度 为 1 到 225 之 间 。 

100 .语句 顺序 错 。 

101 .不 可 识别 的 语句 。 

102 .非法 转移 到 块 中 。 

103 .标号 已 用 于 FORMAT 语 句 。 
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104 .标号 已 定义 。 

105 .转向 FOR MA 语句 的 标号 。 

106 .在 此 处 禁止 出 现 DO 语 句 。 
107.DO 标 号 必须 在 DO 语句 后 面 。 

108 .此 处 禁止 用 下 NDIE 语 句 。 

109. 没 有 与 这 个 已 NDIF 下 配 的 1E 活 句 。 
110. 在 IF 块 中 ，DO 循 环 的 其 套 不 当 。 
111. 此 处 禁止 用 下 LSEIEF 语 句 。 

112 .没有 与 ELSEIE 史 配 的 [FE 语 句 。 
113 .DO 循环 或 ELSEIF 块 的 时 套 不 当 。 
114. 缺 “(” 号 。 

115. 缺 “) ”号 。 

116 . 亿 THEN。 

117. 缺 逮 辑 表达 式 。 

118 .此 处 禁止 用 也 LS 语句 。 

119. 没 有 与 瑟 LS 下 匹配 的 IF 语句 。 

120 .此 处 禁止 用 无 条 件 GOTO 语 句 。 
121. 此 处 禁止 用 赋值 GOTO 语 名 。 

122 .此 处 禁止 用 块 IF 语句 。 

123 .此 处 禁止 用 逻辑 IF 语句 。 

124. 此 处 禁止 用 算术 IE 语 句 。 

125 . 负 ”号 。 

126 .表达 式 类 型 错 。 

127 .此 处 热 止 用 RETURN 语 句 。 

128 .此 处 禁止 用 STOP 语 句 。 

129 .此 处 禁止 用 忆 ND 语 句 。 

131 .引用 未 定义 的 标号 。 
132.DO 锋 环 或 块 1F 无 终端 语句 。 

133 .此 处 不 允许 用 FEORMA 耻 语句 。 
134,.FORMAT 语 名 的 标号 已 经 引用 过 。 
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135.FORMA 了 人 语句 必 须 有 标号 。 

136 . 缺 标识 符 。 

137. 侧 整 型 变量 。 

138 . 缺 “TO” 。 

139 . 缺 整 型 表达 式 。 

140. 是 赋值 GOTO， 而 不 是 ASSIGN 语 句 。 

141 .不 可 识别 的 字符 常量 作为 任 选 项 。 

142 , 缺 字符 常量 任 选 项 。 

143 .部 件 说 明 要 求 整 型 表达 式 。 

144 .在 CLOSE 诸 句 中 ，“，” 号 后 要 求 STATUS 任 选项 。 

145 .在 OPEEN 语 句 中 字符 表达 式 作 文件 名 。 

146 .在 OP 尼 N 语 句 中 必须 有 “FIL 了 =” 选择 项 。 

147. 在 OPEN 语 句 中 ，“RECL=” 任 选项 说 明了 两 次 。 

148 .在 OPEN 语 句 中 ，“RECL=” 选 择 项 所 要 求 的 是 整 型 表达 式 。 

149 ,在 OPEN 语 句 中 不 可 识别 的 任 选项 。 

150. 在 OPEN 语 句 中 ， 直 接 存 取 文 件 必须 指定 “RE 上 CEL=” 任 选项 。 

151 .可 调 数组 不 允许 作为 给 入 输出 表 中 的 元 茶 。 

152 .在 隐 循 环 中 过 到 语句 结束 ， 以 “( ”号 开头 的 表达 式 不 多 许 作为 
输入 输出 表 的 元 闷 。 

153 .需要 隐 循 环 的 控制 变量 。 

154 .表达 式 不 允许 作为 输入 列表 元 素 。 

155. 在 语句 中 出 现 了 两 次 “REC” 一 选择 项 。 

156. “REC=” 侠 整 型 表达 式 。 

157.“END=” 任 选项 只 能 出 现在 READ 语 句 中 。 

158.“END=” 任 选项 在 语句 中 出 现 了 两 次 。 

159 .不 可 识别 的 输入 输出 部 件 。 

160 .输入 输出 语句 中 有 不 可 识别 的 格式 。 

161 .在 输入 输出 语句 中 的 “，” 后 要 求 任 选项 。 

162 .不 可 识别 的 输入 给 出 列表 元 素 。 

163 .未 定义 的 FORMA 了 TT 语 句 标号 。 
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164 . 整 型 变量 用 作 赋 值 格式 ， 但 没有 ASSIG N 语 句 。 

165 .把 一 个 可 执行 语句 的 标号 用 作 格 式 。 

166 ,赋值 格式 缺少 变量 。 

167 .用 作 格 式 的 标号 定义 了 一 次 以 上 。 

169.FUNCTION 调 用 需要 “( )”。， 

200 .在 读 $USES 文 件 中 出 错 。 

201, 9$USES 文 件 中 语法 出 错 。 

202. $USES 文 件 中 的 SUBROUTINE 名 或 FUNTION 名 已 经 定义 
过 。 

203 .函数 不 能 送 回 字符 型 值 。 

204 .不 能 打开 $USES 文 件 。 

205, $USES 语 句 太 少 。 

206, $USES 文 件 中 ， 没 有 该 程序 单位 的 . 了 刁 XT 信 息 。 

207. $USES 文 件 中 有 非法 段 。 

208. $USES 没 有 这 个 程序 单位 。 

209. $USES 语 句 中 遗失 了 程序 单位 名 。 

210, $USES 命 令 结束 处 有 多 余 的 字符 。 

211 .内 部 程序 单位 不 可 被 覆盖 。 

212，$ 卫 X 人 命令 中 语法 出 错 。 

213 . 子 例 程 子 程序 不 能 有 类 型 说 明 。 

214 .在 $EXT 命 令 中 FUNCTION 名 或 SUROUTINE 名 已 经 被 定 
义 过 5; 

400 .代码 文件 写 错误 。 

401.JTABDB 中 的 实体 太 多 。 

402 . 段 中 的 子 例 程 子 程序 和 函数 太 多 。 

403 .过 程 太 长 (代码 缓冲 区 太 小 ) 。 

404 .在 系统 盘 上 的 高 速 暂 存 存储 器 文件 空间 不 够 。 

450 .高 速 暂 存 存储 器 文件 上 的 读 错误 。 
2. 运 行 出 错 信息 

600,FORMAT 语 名 缺少 最 后 的 “) ”。 
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601 .在 输入 中 不 需要 符号 。 

602 ,在 输入 中 符号 后 未 跟 数字 。 

603 ,在 输入 中 缺 数字 。 

604 .在 格式 码 B 后 面 缺 N 或 Z。 

605 .在 格式 码 中 有 不 符合 的 数字 。 

606 .在 格式 中 重复 因子 不 能 为 零 。 

607 .在 格式 中 W 字段 缺 整数 。 

608 .在 格式 中 凤 字 段 缺 正 整 数 。 

609 .在 格式 中 缺 “0” 。 

610 .在 格式 中 d 字 段 缺 正 整数 。 

611 .在 格式 中 e 字 段 缺 整数 。 

612 .在 格式 中 的 e 字 段 缺 正 整数 。 

613 .在 A 格 式 中 的 双 字 段 缺 正 整数 。 

614. 在 格式 中 的 五 氏 字段 不 多 许 在 REND 语 句 中 出 现 。 
615 .在 格式 中 的 五 氏 字段 缺 重复 因子 。 

616 .在 格式 中 的 X 字 段 需 要 重复 因子 。 

617 .在 格式 中 的 了 字段 缺 重复 因子 。 

618 .格式 中 的 整数 出 现在 “十 ”或 “一 ”的 前 面 。 
619 .格式 中 的 整数 出 现在 “十 ”或 “一 “之 后 。 
620. 格 式 中 带 符号 的 重复 因子 之 后 缺 P 格 式 。 
621 .格式 的 最 大 嵌 套 层 越界 。 

622 .格式 中 “) ”有 了 重复 因子 。 

623 .格式 中 整数 后 接 了 一 非法 字符 “，” 。 
624.“. ”是 非法 的 格式 控制 符 。 

625. 字 符 常 量 不 可 出 现在 READ 语 句 的 格式 中 。 
626. 格 式 中 的 字符 常量 不 可 重复 。 

627 .格式 中 的 “/” 不 可 重复 。 

628 .格式 中 的 “ $” 不 可 重复 。 
629.BN 或 BZ 格 式 控制 不 可 重复 。 

630. 企 图 在 未 知 数 设备 上 完成 输入 输出 。 
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631 .企图 在 作为 非 格式 化 打开 的 文件 上 进行 格式 化 给 入 演出 。 
632. 格 式 应 以 “( ”号 开始 。 

633 .整数 读 缺 I 格 式 。 

634 . 实 型 读 缺 F 或 “已 ”格式 。 

635. 在 格式 的 实 型 数 读 中 用 了 两 个 “,， ”字符 。 

636 . 读 格 式 化 实 型 数 时 缺 数 字 。 

637 . 读 迎 辑 型 数 时 缺 志 格 式 。 

639 . 读 逻 辑 型 数 时 缺 了 或 了 F。 

640. 读 逻辑 型 数 时 侧 人 格式 描述 符 。! 

640 . 读 字符 型 数 时 缺 人 格式 描述 符 。 

641. 写 整 型 数 时 缺 I 格 式 。 

642 .下 格式 中 的 人 字段 不 大 于 d+ 1 

643 .也 格式 中 比例 因子 超出 了 d 字 段 的 范围 。 

644 .写实 型 数 时 负 了 或 下 格式 。 

645. 写 逻辑 型 数 时 缺 志 格 式 。 

646 .写字 符 型 数 时 侧 人 格式 。 

647 ,企图 在 格式 化 打开 的 文件 上 进行 非 格式 的 输入 输出 。 
648 .不 能 写 分 块 的 输出 一 一 文件 所 在 的 设备 的 空间 不 够 。 
649 .不 能 读 分 块 的 输入 。 

650 .格式 文本 文件 错 一 一 最 后 512 个 字符 没有 回 车 。 

651 .输入 整 型 数 时 溢出 。 

652 . 读 入 的 字 节 数 太 多 ， 超 出 直接 存 取 单 位 记录 。 

653 .以 直接 存 取 单 位 记录 读 出 的 字 节 数目 不 正确 。 

654 ,企图 在 非 块 设备 上 打开 直接 存 取 部 件 。 

655 .企图 在 文件 结束 记录 外 的 部 件 上 进行 外 部 输入 输出 。 
656 .企图 在 非 定 位 记录 号 上 规定 直接 存 取 的 部 件 位 置 。 

657 .企图 在 顺序 打开 的 部 件 上 作 直 接 存 取 。 

658 .企图 在 非 块 设 备 上 规定 直接 存 取 的 位 置 。 

659 .企图 在 读 的 文件 结束 范围 之 外 规定 直接 存 取 部 件 的 位 置 。 
660. 企 图 在 与 非 块 设 备 或 非 格式 文件 连接 的 部 件 上 回 退 (BACKSP- 
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ACE ) 。 
661. 企 图 回 退 顺序 的 非 格式 的 部 件 。 
662.ASIN 或 ACOS 的 自 变量 超 界 一 | | >1.0。 
663.SIN 或 COS 的 自 变量 太 大 一 | X1| >10*。 
664. 企 图 在 内 部 部 件 上 进行 非 格式 输入 输出 。 
665 .企图 在 内 部 部 件 上 放置 一 个 以 上 的 记录 。 
666 .企图 在 内 部 部 件 上 写 比 其 长 度 更 长 的 字符 e' 
667. 在 未 知 部 件 上 调用 下 OF 函数。 
697 . 整 型 变量 当前 未 赋 以 REFORMAT 格 式 。 
698 .在 没有 “END=” 任 选项 的 读 时 遇 到 文件 结束 。 
699 . 整 型 变量 没有 了 赋 以 GOTO 话 句 中 的 标号 。 
1000+ 编 译 程序 诊断 错误 信息 一 一 在 正确 的 程序 中 永远 不 会 出 现 。 


附录 二 PASCAL 语 言 一览 表 


2.1 PASCAL 命 令 一 览 表 


BEGIN 语句 1， 语 名 2，…， 语句 mn 卫 ND) 
定义 一 个 复合 语句 。 

CASE (选择 玫 达 式 》 OF 

情况 标号 1 : 语句 1 

情况 标号 2 : 语句 2; 


情况 标号 N :语句 n (na1) 
END， 
定义 一 个 情况 语句 。 
FOR 《变量 名 ) :=( 表 达 式 1) TO/DOWNTO (表达 式 2》 DO 
《语句 》 
变量 赋 初 值 ( (表达 式 1) ) ， 执 行 一 次 语句 ， 然 后 增加 (TO) 1 
或 减少 (DOWNTO ) 1 再 执行 语句 ， 如 此 重复 ， 直 到 变量 值 超过 终 
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限 值 ( (表达 式 2》) 为 止 。 
FUNCTION (函数 名 》( (参数 表 》) ， 类 型 
《程序 体 》 
函数 说 明 。 
GOTO 《语句 标号 》 
转向 语句 标号 所 在 的 语句 去 执行 。 
IF 《条件 》 THEN (语句 1》 [了 LSE 《语句 2>] 
当 条 件 成 立时 执行 语 名 1， 否则 执行 语句 2。 语 名 1 或 语句 2 执行 结 
束 后 ， 顺 序 执行 后 继 语 句 。 其 中 【] 表示 待 选项 。 
PROCEDURE (过 程 名 》(《〈 参 数 玫 》 ) 
《程序 体 》 
过 程 说 明 
REPEAT 语句 1， 语 句 2，…? 语句 na _ UNTIL 条件》 
反复 执行 指定 的 语句 ， 直 到 条 件 满足 才 停止。 
WHILE (条 件 》 DO 语句 
当 条 件 为 真 时 ， 反 复 执行 指定 的 语句 ， 直 到 条 件 为 假 时 停止。 
WITH (变量 1{1)，(〈 变 量 2)”，…，《(《 变 量 na》DO 语句 : 
打开 以 变量 1 至 变量 n 为 域名 的 记录 ,以 便 使 用 这 些 域名 ， 执 行 
DO 后 语句 。 


2.2 PASCAL 出 错 信息 表 


1 .编译 程序 出 错 信息 表 

1 ERROR IN SIMPLE TYPN 简单 类 型 错误 

2 IDENTIFER EXPECTED 缺 标识 符 

3 "PROGRAM' EXPECTED 缺 PROGRAM 

4 ”) "EXPECTED 缺 符号 7 

5 ”%， 灾 XPECTED 侠 符 号 ”2 “ 

6 ILLEGAL SYMBOL ( POSSIBLY MISSING ， ，ON LINE 
ABOVE ) 非法 符号 〈《 可 能 在 上 行 缺 ”，“”) 
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7 ERROR IN PARAMETER LIST 


8 
9 
10 


24 
50 
51 
52 
53 
54 
55 


56 
57 


"OF 'EXPECTED 
“( 'EXPECTED 
ERROR IN TYPE 

′ "EXPECTED 

” ”EXPECTED 
'END ”EXPECTED 
“EXPECTED 
INTEGER EXPECTED 
' 一 ”EXPECTED 
'BEGIN 呈 XPECTED 


ERROR IN DECLARATION PART 
ERROR IN (FIELD-LIST》 


“， "EXPECTED 
"不 “ 王 XPECTED 


"TINTERRACE “” 忆 XPECTED 
"TMPLEMENTATIAN "EXPECTED 


”UNIT “XPECTED 
ERROR IN CONSTANT 
"一 ”了 EXPECTED 
'THEN “” 卫 XPECTED 
"UNTIN ”EXPECTED 
"DO ”EXPECTED 


参数 表 中 有 错误 

缺 "OF ” 

缺 “(“ 

类 型 说 明 有 错 

缺 空格 

同上 

缺 END 

缺 " ， ” 

侧 整 型 量 

缺 “= "号 

缺 BEGIN 

在 说 明 部 分 有 错误 

记录 的 域 表 有 错误 
缺 “，“” 
负 “ 章 “ 
缺 接 口 部 分 
缺 实现 部 分 
缺少 UNIT 
常数 有 错 
负 少 赋值 ” 一 “号 
缺 THEN 
循环 语句 中 缺 UNTIL 
缺 "DO ” 


'TO ' OR 'DOWNTO ”EXPECTED IN FOR STATEMENT 
在 ROR 语 句 中 ， 缺 少 TO 或 DOWNTO 


"IF ”EXPECTED 
"FILE ” EXPECTED 


缺 “IF “ 
缺 “FILBE ” 


58 ERROR IN4FACTOR(BAD EXPRESSION) 表 达 式 中 有 错误 项 。 


59 


101 IDENTIFER DECLARED TWICE 


ERRON IN VARIABLE 


变量 中 有 错误 
标识 符 说 明了 两 次 。 


102 LOW BOUND EXCEEDS HIGH BOUND 下 界 超过 上 界 。 
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103 IDENTIFIER IS NOT OF THE APPROPRIATE CLASS 


标识 符 没有 适当 的 类 型 
104 UNDECLARED IDENTIFIER 标识 符 未 经 说 明 
1o5 SIGN NOT ALLOWED 符号 不 允许 
106 NUMBER EXPECTED 催 少 数 
107 INCOMPATIBLE SUBRANGE TYPES ， 子 界 类 型 不 适当 
108 FILE NOT ALLOWED HERE 这 里 不 能 用 文件 
109 TYRE MUST NOT BE REAL 不 能 是 实 型 
110 (TAGFELD》 TYPE MUST BE SCALAR OR SUBRANGE 
记录 的 标志 域 必须 是 枚 举 或 子 界 类 型 


111 INCOMPATIBLE MITH (TAGEFIELD》PART 记录 的 标志 域 不 当 
112 INDEX TYPE MUST NOT BE REAL 下 标 类 型 不 能 是 实 型 
113 INDEX TYPE MUST BE A SCALAR OR A SUBRANGE 
下 标 类 型 必须 是 枚 举 或 子 界 类 型 
114 BASE TYPE MUST NOT BE REAL 基 类 型 不 能 是 实 型 
115 BASE TYPE MUST BE SCALAR OR A SUBRANGE 


基 类 型 必须 是 枚 举 或 子 界 类 型 
1116 ERROR IN TYPE OF STANDARD PROCEDURE PARAME- 
TER 标准 过 程 的 参数 有 错误 


117 UNSATISFIED FORWARD REFERENCE 不 满足 向 前 引用 
18 FORWARD REFEREFNCE TYPE IDENTIFIER IN VARIABLE 
DECLARATION 向 前 引用 类 型 标识 符 在 变量 说 明 里 面 
119 RE-SPECIFIED PARAMETERS NOT OK FOR A FORWARD 
DECLARED PROCEDURE 
对 于 前 面 已 经 说 明了 的 过 程 ， 重 新 指定 参数 是 不 行 的 。 
120 FUNCTION RESULT TYPE MUST BE SCALAR，SUBRANGE 
OR POINTER 函数 结果 类 型 必须 是 枚 举 ， 子 界 或 指针 类型 “1 
121 FILE VALUE PARAMETER NOT ALLOWED 
不 允许 文件 作为 参数 
122 A FORWARD DECLARED FUNCTION'S RESULT TYPE 
CAN'T BE RE-SPECIFIED 前面 说 明 的 函数 的 类 型 不 能 重新 说 明 
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在 函数 说 明 中 漏 掉 了 各 数 , 值 的 类 型 
124 FF 一 FORMAT FCR REALS ONLY F 一 客 式 仅 对 实数 
125 ERROR IN TYPE OF STANDARD PROCEDUCE PARAM= 
ETER 标准 过 程 参数 类 型 有 错误 
126 NUMBER OF PARAMETER DOES NOT AGREE WITH DEC- 
LAKATION 参数 的 数目 与 说 明 不 一 致 
ft27 ILLEGAL PARAMETER SUBSTITUTION 非法 的 人 参数 替换 。 
128 RESULT TYPRE DOES NOT AGREE WITH DECLARATCON 
结果 类 型 与 说 明 不 一 至 
129 TYPE CONEFLICT OF OPERANDS 运算 对 象 类 型 相 冲突 
130 EXPRESSION IS NOT OF SET TYPE 表达 式 不 能 有 集合 类 型 
131 TESTS AN EQUALITY ALLOWED ONLY 只 能 允许 检查 相等 
132 STRICT INCLUSION NOT ALLOWED 不 允许 严格 包含 
133 FILE COMPARISON NOT ALLOWED 不 允许 文件 比较 
134 ILLEGAL TYPE OF OPESAND(S) 运算 对 象 类 型 不 合法 
135 TYPE OF OPERAND MUST BE BOOLEAN 
运算 对 象 类 型 必须 是 布尔 量 
136 SET _ ELEMENT TYPE MUST BE SCALAR OR SU BRANGE 
合 元 素 类 型 必须 是 枚 举 或 子 界 类 型 
137 SET _ ELEMENT TYPE MUST BE COMPATIBLE 
合 元 素 类 型 不 相 容 
138 TYPE OF VARIABLE IS NOT ARRAY 变量 类 型 不 是 数组 : 
139 INDEX TYPE IS NOT COMPATIBLE WITH:THE DECLAR- 
ATION 下 标 类 型 与 说 明 不 相 容 
140 TYPE OF VARIABLE IS NOT RECORD 变量 的 类 型 不 是 记录 
4141 TYPE OF VARIABLE MUST BE FILE OR POINTER 
变量 的 类 型 必须 是 文件 或 指针 类 型 
142 ILLEGAL PARAMETER SOLUTION 非法 的 参数 丐 代 
143 ILLEGAL TYPE OF LOOP CONTROL VARIABLE 


循环 控制 变量 的 类 型 不 合法 
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让 
0 
144 工 荆 尼 GAL TYPE OF 忆 XPRESSION 非法 的 表达 式 类 型 

145 TYPE CONFLICT 类 型 相 冲 突 

146 ASSIGNMENT OF FILES NOT ALLOWED 不 允许 文件 赋值 
147 LABEL TYPE INCOMPATIBLE WITH SELECTING EXPRE- 


SSION 标号 类 型 与 选择 表达 式 不 相 容 
148 SUBRANGE BOUNDS MUST BE SCALAR 
1 子 界 的 界 必须 是 枚 举 量 


149 INDEX TYPE MUST BE INTEGER 下 标 类 型 必须 是 整 型 
150 ASSIGNMENT TO STANDARD FUNCTION IS NOT ALLO- 
WED 给 标准 函数 赋值 是 不 允许 的 
151 ASSIGNMENT TO FORMAL FUNCTION IS NOT ALLOWED 

给 形式 函数 赋值 是 不 允许 的 
152 NO SUCH FIELD IN THIS RECORD 本 记 过 由 区 有 有 这样 的 过 
153 TYPE ERROR IN READ 语句 中 类 型 出 错 
154 ACTUAL PARAMETER 中 A VARIABLE 

实 参 应 该 是 一 个 变量 
155 CONRTOL VARIABLE CANNOT BE FORMAL OR NON 一 

LOCAL 控 佑 记 遇 不 能 是 形式 的 或 非 局 部 的 
156 MULTI DEFINED CASE LABEL 多 次 定义 情况 标号 
157 TOO MANY CASEE IN CASE STATEMENT 
况 语句 中 的 CAES 过 多 

158 NO SUCH VARIANT IN THIS RECORD 遗漏 记录 的 变 体 说 明 
159 REAL OR STRING TAG-FIELDS NOT ALLOWED 

不 允许 用 实数 或 串 作 标志 
160 PREVIOUS DECLARATION WAS NOT FORWARD 

预先 说 明 的 不 是 FORWARD 

161 AGAIN FORWARD DECLARED 重复 向 前 说 明 
162 PARAMETER SIZ 瑟 MUST BE CONSTANT 

参数 的 大 小 必须 是 常量 
163 MISSING VARIANT IN DECLARATION 在 说 明 中 遗漏 变 体 
164 SUBSTITUTION OF ST 人 RD /FUNC NOT ALLO- 
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WED 不 允许 标准 过 程 或 函数 的 蔡 换 
165 MULTI DEFINED LABEL 多 重 定义 标号 
166 MULTI DECLARED LABEL 多 重 说 明 标 号 
167 UNDECLARED LABEL 未 说 明 标 号 
168 UNDEFINED LABEL 未 定义 标号 
169 ERROR IN BASE SET 集合 的 基 类 型 出 错 


170 VALUE PARAMETER EXPECTED 缺 值 参数 
171 STANDARD FILE WAS RE 一 DECLARED 
标准 文件 被 再 次 说 明 
172 UNDECLARED EXTERNAL FILE 未 说 明 外 部 文件 
174 PASCAL FUNCTION OR PROCEDURE EXPECTED 
期 望 PASCAL 的 过 程 或 图 数 
175 ACTUAL PARAMETER MAX STRING LENGTH<FORMAL 
MAX LENGTH 实 参 最 大 串 长 人形 参 最 大 长 度 
182 NESTED UNITS NOT ALLOWED 不 允许 嵌 套 UNITS 
183 EXTERNAL DECLARATION NOT ALLOWED AT THIS 
NESTING LEVEL 在 这 一 嵌 套 层 不 允许 外 部 说 明 
184 了 XTERNAL DECLARATCON NOT ALLOWED IN INTERF-~ 
ACE SECTION 在 接口 部 分 不 允许 外 部 说 明 
185 SEGMENT DECLARATION NOT ALLOWED IN UNIT 
在 UNIT 中 不 允许 有 SEGMENT 说 角 
186 LABELS NOT ALLOWED IN INTEREACE SECTION 
在 接口 部 分 不 多 许 有 标号 
187 ATTEMPT TO OPEN LIBRARY UNSUCCESSFUL 打开 库 失 败 
188 UNIT NOT DECLARED IN PREVIOUS USES DECLARATION 
在 预先 USES 说 明 中 未 说 明 UNIT 
189 ”USES'” NOT ALLOWED AT THIS NESTING LEVEL 
在 这 层 嵌 套 级 不 允许 USES 
19J UNIT NOT IN LIBRARY UNIT 不 在 库 中 
191 NO PRIVATE FILES 无 私 用 文件 
192 “USES' MUST BE IN INTERFACE SECTION 
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USES 应 在 接口 部 分 

193 NOT ENOUGH ROOM FOR THIS OPERATION 
侧 乏 运 行 空间 

194 COMMENT MUST APPEAR AT TOP OF PROGRAM 
注解 应 在 程度 的 顶部 

195 UNIT NOT IMPORTABLE UNIT 不 可 引入 

201 ERROR IN REAL NUMBERS 一 DIGIT EXPECTED 
实数 出 错 一 期 望 数字 

202 STRING CONSTANT MUST NOT EXCEED SOURCE LINE 
串 常 量 不 可 超过 源 行 


203 INTEGER CONSTANT EXCEEDS 整 型 常量 越界 
2048 OR 9 IN OCTAL NUMBER 八进制 数 中 不 可 有 8 或 9 
250 TOO MANY SCOPES OF NESTED IDENTIEFIERS 
标识 符 的 嵌 套 范围 太 大 
251 TOO MANY NESTED PROCEDURES OR FUNCTIONS 
过 程 或 函数 民 套 太 多 
252 TOO MANY FORMARD REFERENCES OF PROCEDURE 
ENTRIES 过 程 入 口 的 向 前 引用 太 多 
253 PROCEDURE TOO LONG 过 程 太 长 
254 TOO MANY LONG CONSTANTS IN THIS PROCEDURE 
本 过 程 的 长 常数 太 多 
256 TOO MANY EXTERNAL REFERENCES 外 部 调用 太 多 
257 TOO MANY EXTERNALS 外 部 过 程 或 函数 太 多 
258 TOO MANY LOCAT FILES 局 部 文件 太 多 
259 也 XPRESSION TOO COMPLICATED 表达 式 过 于 复杂 
350 DIVISIAN BY ZERO 除 0 
301 NO CASE PROVIDED FOR THIS VALUE 
对 此 值 未 提供 情况 标号 
302 INDEX EXPRESSION OUT OF BOUNDS 下 标 表达 式 越界 
303 VALUE TO BE ASSIGNED 1S OUT OF BOUNDS 赋值 越界 
304 了 LEMENT EXPRESSION OUT OF RANGE 元 素 表达 式 越界 
0 
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350 NO DATA SEGMENT ALLOCATED 无 数据 SEGMENT 

351 SEGMENT USED TWICE SEGMENT 使 用 了 两 次 

352 NO CODE SEGMENT ALLOCATED 无 代码 SEGMENT 

353 NON 一 INTRINSIC UNIT CALLED FROM INTRINSIC UNIT 
在 内 部 UNIT 中 调用 非 内 部 UNIT 

354 TOO MANY SEGMENT FOR THE SEGMENT DICTIONARY 
SEG 目 录 中 的 SEGMENT 太 多 

398 IMPLEMENTA TUN RESTRICTION 实现 的 限制 

399 IMPLEMENTATION RESTRICTION 

400 ILLEGAL CHARACTER IN TEXT 在 文本 中 出 现 非法 字符 

401 UNEXPECLED END OF INPUT 输入 不 应 该 结束 

402 了 ERROR IN WRITING CODE FILE，NOT ENOUGH ROOM 
输出 代码 文件 出 错 ， 空 间 不 够 各 

403 ERROR IN READING INCLUDE FILE 读 文 件 时 出 错 

404 ERROR IN WRITING LISTEFILE，NOT ENOUGH ROOM 
输出 列表 文件 出 错 ， 空 间 不 够 

405 CALL NOT ALLOWED IN SEPARATE PROCEDURE 

406 INCLUDE FILE NOT LEGAL 包含 的 文件 不 合法 

407 TOO MANY LIBRARIES 库 太 多 

408 〈(*$S+* ) NEEDED TO COMPILE UNITS 
编译 UNIT 需 要 用 选择 项 (*$S+* ) 

500 GENERAL ASSEMBLER ERROR 汇编 程序 出 错 


2. 运行 错误 信息 
当 一 个 PASCAL 程 序 或 者 操作 系统 的 基 一 部 分 运行 出 错时 ， 将 以 
下 述 形 式 ， 给 出 一 个 运行 错误 号 或 运行 错误 信息 ， 
EXEC 已 RR#10 
S#1，P#7，T 提 56 
TYPE (SPACE TO CONTINUE  ( 遍 空 格 就 继续 ) 
或 ， IO ERROR :VOL NOT FOUND ( 卷 号 没有 找到 ) 
S 共 1，P#7， 工 站 56 
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TPYE (SPACE》 TO CONTINUE ( 空 格 键 则 继续 ) 


其 中 3# 表 示 程 序 的 当前 段 号 ， 卫 # 表示 段 号 的 过 程 号 ， 工 # 表 示 
在 过 程 中 已 经 查 出 的 出 错字 节 号 。 只 有 当 表 示 SYSTEM 'PASCAL 
文件 在 自 举 驱动 器 内 时 ， 才 能 给 出 更 详细 的 用 户 IVXO 错 误 信 息 来 。 

关于 段 号 、 过 程 号 和 字 节 号 的 描述 ， 可 在 编译 源 程序 时 ， 由 工 十 
(〈 编译 列表 ) 选择 项 给 出 。 


运行 出 错 人 信息 囊 


四 co 


错 误 信 息 
未 定义 性 质 的 系统 错误 。 
串 或 子 界 变量 越界 ( 如 果 使 用 R 一 编译 程序 选择 项 ， 不 会 发 现 此 类 
错误 ) 。 
无 侦 ， 代 码 文件 出 错 。 文 件 可 从 磁盘 上 正常 读 出 ， 但 无 有 效 段 。 
从 一 个 不 是 事先 调用 过 的 过 程 或 者 不 在 “活动 ”的 过 程 出 口 。 
栈 溢 出 ， 程 序 所 用 栈 要 求 的 空间 已 超过 用 户 可 使 用 的 存储 空间 。 
整 型 量 溢出 ， 整 型 运算 结果 大 于 二 进 制 16 位 ( 两 个 字 节 ) 或 者 长 整 
型 运算 结果 大 于 十 进 制 36 位 数 ， 或 者 将 长 整 型 量 赋 给 不 能 满足 数位 
大 小 的 变量 。 
用 0 作为 除数 。 
无 效 存储 访问 。( APPLE 机 未 使 用 ) 
用 户 中 断 ， 按 了 中 断 键 CTRL 一 还 
系统 I/O 错 ， 企 图 从 磁盘 上 读 出 操作 系统 的 一 个 段 内 容 。 
用 户 I/O 错 ， 用 户 程序 企图 实现 一 个 BLOCKREAD ,BLOCKW- 
RITE，GET， 或 RUT 时 出 错 。 如 果 SYSTEM.PASCAL 文 件 有 
效 ， 上 述 错 误会 进一步 以 I/O 错 误 信息 给 出 。 
不 能 实现 的 指令 ， 操 作 码 不 能 执行 。 
浮 点 运算 错 ， 错 误 由 于 实 型 数 的 格式 ， 实 型 数 溢 出 等 原因 引起 。 
串 过 长 ， 企 图 将 串 存 入 空间 大 小 不 足 的 目标 串 中 引起 。 
暂停 ( APPLE 机 未 使 用 ) 。 
坏 块 ( APPLE 机 未 使 用 本 错误 码 ， 而 用 IXO ERROR#64 来 代 
替 )。 


IPTorrrgeraacrrecrreerioeeegr ao 


"301。 


表 中 0 号 和 9 号 错误 为 致命 性 的 错误 ， 将 引起 系统 自动 “ 冷 启动 " ， 或 者 要 用 
户 自己 “ 冷 启动 ”。 其 余 的 错误 为 非 致 命 的 错误 ， 将 会 引起 系统 重新 初始 化 ， 
即 调用 INITIALIZBE 过 程 进 行 “ 热 启动 ”， 一 般 只 要 按 下 空格 键 即 可 。 


3。I/O 出 错 信息 


MO 出 错 人 信息 表 


错 误 信 息 
无 错 。 
磁盘 有 坏 块 4 APPLB 机 未 使 本 错误 号 ) 。 
坏 设 备 ( 卷 号 ) 。 


错误 的 I/O 操 作 方式 ( 例如 。 企 图 从 打印 机 上 进行 读 操作 ) 。 
硬 设备 未 定义 ( APPLE 机 未 使 用 本 错误 号 ) 。 

委 失 设备 ， 使 用 某 一 设备 成 功 地 做 过 一 次 操作 后 ， 谈 设备 突然 不 在 
线 上 。 

委 失 文件 ， 使 用 某 个 文件 成 功 地 进行 操作 后 ， 该 文件 突然 从 盘 目 录 
上 被 删 去 。 

错误 文件 各， 出现 非 法 文件 名 (例如 文件 名 的 长 度 超过 15 个 字符 )。 
无 空间 ， 破 盘 上 无 足够 的 存储 空间 ( 文件 必须 存储 在 连续 的 磁盘 块 
上 ) 

缺 设备 ， 所 需 的 设备 未 联机 。 

缺 文 件 ， 所 需 的 文件 不 在 指定 的 磁盘 目录 上 。 

重 写 文件 。 企 图 再 写 一 亡 已 经 存在 在 破 盘 上 的 文件 。 

文件 未 关闭 ， 企 图 打开 已 经 打开 过 的 文件 。 

文件 未 打开 ， 企 图 访问 一 个 关闭 的 文件 。 

格式 出 错 ， 错 误 发 生 在 整 型 或 实 型 量 的 READ 过 程 中 ( 例如 ， 程 序 
需要 读 入 整 弄 量 ， 而 你 却 输入 一 个 字符 ) 。 

缓冲 区 溢出 ， 输 入 字符 的 速度 大 于 缓冲 区 能 够 接受 字符 的 速度 。 
写 保护 错 ， 指 定 的 磁盘 已 做 写 保护 ， 不 能 对 该 磁盘 作 写 操作 。 
设备 出 故障 ， 不 能 正确 地 读 。 写 ( 如 磁盘 上 出 现 坏 块 等 ) 。 
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